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SUMMARY 


As an instructional aid to beginning computer science 
courses, two systems are described which permit the automatic 
diagnosing and grading of student prepared problems. The 
first system is based on a simulator which performs by 
actually running programs prepared for a simple tutorial com- 
puter taught in the classroom. The simulator, which will run 
on any computer with even a limited FORTRAN IV capability, 
simulates a single address six decimal machine with 15 basic 
instructions, 9 index registers, and 1000 memory locations. 
Several problems which have been used in student classes are 
given; however, the strength in the system is that it is 
capable of taking any problem and it's solution, provided by 
the instructor, and using that solution as a standard against 
which student problems are automatically compared and 
graded. The instructor can also specify the weighting of 
factors he considers important in the grading. Diagnostic 
information is provided to the student on practice runs he 
makes. The system has been used over four quarters and over 
600 students have run problems on the simulator. 


A second system provides for the running of student 
machine language programs on any IBM 1130 computer. This 
system,called an Assembler Monitor, is programmed in IBM 
1130 machine language itself, and will only run on that com- 
puter. It provides a protection system against novice pro- 
grammers destroying resident programs in the machine and, in 
addition, supplies debugging aids and a grading system very 
much like that for the simulator. 
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- INTRODUCTION 


In the fall of 1965 Florida Institute of Technology 
introduced an undergraduate degree program in Computer 
Science. The year 1969 saw the first graduate of this 
program. In addition to the more than 150 sutdents major- 
ing in Computer Science at Florida Institute of Technology 
all of the 500 freshmen each year are required. to take 
an introductory course in Computer Science which includes 
programming. These students pursue degree programs in 
Electrical Engineering, Physics, Mathematics, and Space 
Technology. 


The Computer Science curriculum at Florida Institute 


.of Technology was designed to present the technology 
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necessary for the undergraduate student to understand com~ 
puters and their usage and to become a future specialist 
or generalist in the field. For the non Computer Science 
Major the introductory course taken requires the student 
to learn programming through actual running of programs he 
has prepared. For some students this is the only formal 
training they will receive in programming, but it provides 
a sufficient basis for their own subsequent work. Others 
will take additional formal coursework. 


Teaching of the quantities of persons taking the ; 
computer science introductory course has been a formidable 
problem for Florida Institute of Technology as well as 
at other schools in such an endeavor. Since qualified 
instructors are rather rare there is a natural tendency 
to load the good ones unmercifully in terms of the number 
of students they face. In such a situation the instructors 
find it difficult, if not impossible, to assign and 
evaluate a representative number of problems. Such is 
the motivation for a mechanized means of evaluating student 
problems. A mechanized system also provides for gathering 
and processing statistical data to assist the instructor 
in his subsequent problems assignments. 


In the process of introducing the unititated to the 
use of electronic digital computers, and their programming 
in particular, a teacher. or author is faced with an early 
decision on the specific computer he uses for illustration. 
He must either deal with an existing computer or develop 
an artificial one to demonstrate the characteristics he 
deems essential. Either approach has advantages and draw- 
backs. , 
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If an existing computer is taken as the illustration, 
a dilemma is again faced; either to choose a large machine 
with an extensive and sophisticated instruction repertoire, 
or a smaller machine with non essential characteristics 
imposed on it by short word length. For either case, more 
complexity is required than is desired to present the 
rudimentary concepts. The advantage of being able to 
demonstrate those concepts discussed on an available computer 
is considerable, ROWEVEE:s 


Alternatively, if an artificial ee and its 
instruction repertoire are chosen as the illustrating 
medium, then a teaching tool can be developed exactly to 
the author's taste, and need only include essentials, or, 
it may be embellished as desired. However, the students 
or readers can never observe the joys of a successfully 
run program of their own design, or the realistic frustra- 
tions of trying to chase down a buc;.. The results may be 
like learning to drive an automobiie by a correspondence 
course. 


A compromise to the choice between a real and an 
artificial computer approach is to start from the ideal- 
ized artificial machine and to simulate its behavior 
on a real computer. In this way, programs can actually 
be written for the artificial computer and run (via the 
real one). 


Work done under this contract includes the development 
of artificial machine language and a simulator on which 
it runs, and an assembler monitor system which permits 
ready student access to the use of an actual machine 
language. The simulator computer is written in FORTRAN 
and can be used with any computer which has a FORTRAN com- 
piler; the assembler monitor is for use on the IBM 1130 
computer only with its machine language. The 1130 computer 
is in very common use in colleges and other schools and 
is the Florida Institute of Technology's computer. 


The automated problem set undertaken for this contract 
employs an artificial machine language which is simulated 
in the universal FORTRAN language so that programs can 
be written and run to demonstrate the fundamentals of 
machine language programming. The simulator is desig- 
nated the SIM 610 (for Simulator of six decimal digit 
Machine). Six decimal digits permits reasonable length 
data and instruction words. Use of decimal numbers permit 
the learning of concepts without the added burden of unfamil- 
iar binary numbers, and without numerical conversions which 
divorce input and output numbers from internal machine 
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numbers and operations. 


The machine language is represented in terms of an 
instruction set detailed in the report. The pseudo com- 
puter of the instruction set has a memory of exactly 1000 - 
words, addressed from 000 to $99 decimal. It has nine 
index registers referenced by digits 1 to 9. It has a 
potential for 100 different instructions through instruction 
codes 00 to 99; however, only 15 of these are used. A 
computer word length of six decimal digits plus a sign bit 
(assumed + if not specified) accommodates both single address 
instruction and data. The 15 instructions fall into cate- 
gories; data transfer, arithmetic, input/output and branch- 
ing. 


The Assembly Monitor System is designed to permit 
use of the actual machine language of the IBM-1130 by 
the student in a controlled environment. This environment 
permits evaluation of student. problems and protects the | 
system itself from being destroyed by student program faults. 
Since the actual IBM-1130 machine language is rather compli- 
cated to use by an apprentice this is considered a necessary 
feature when assigning students assembly or machine language 
programs, Such problems are not assigned in the first 
introductory course which employs the SIM 610 simulator. 


METHODS 


Initial Objectives 


At the outset of the contract the intent with regard 
to an automated set of problems was the establishment of a 
continuously reusable set of machine language programming 
problems. ‘These problems would be of graded sophistication 
and @ifficulty and span at least two successive quarters 
of student experience. An evaluation and grading program 
was to he developed concurrently which would permit "batch" 
running of student programs. This program was called the 
Florida Institute of Technology Student Program Operating 
Monitor (FITSFPOM). 


A second task described in the proposal was the prepar- 
ation of a set of symbolic (assembly) language programs 
and a means of running these programs in batches and eval- 
uating them also. The intenthere was to modify the IBM 
1130 Assembler operating under the IBM 1130 Disc Monitor 
Program, a system available at many schools and colleges. 


Both the evaluation programs above were to have data 
collecting capability on the programs run and were to 
perform some statistical evaluations on the results. Also 
both would provide feedback to the student in the form 
of dumps of his program. 


A set of more than 60 machine language problems were 
developed with optimally programmed solutions and a subset 
of about 20 of these were picked as a set to be used in 
the programming courses. The problems were actually used 
with some of the student classes during initial work on 
the evaluation program and before it was ready. 


A number of unanticipated difficulties arose which 
necessitated some revisions in the initial objectives. 
There are described in the following paragraphs. 


A major curriculum revision occurred at Florida 
Institute of Technology affecting all departments and 
going into effect with the September 1968 term which was 
in the middle of the period of this grant. In this revised 
curriculum the courses taken by all students during the 
first. two years are identical and@ it is not until the 
Junior year that the differences in the degree programs 
appear. Such a curriculum has both advantages and dis- 
advantages for both the school and the student. From 
the standpoint of this grant the advantage is that 
not only Computer Science students, but all students at 
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the Institute take an introductory computer course. The 
disadvantage, from the grant standpoint, is that where 

the automated problem set was to cover a sequence of courses, 
it must now cover only a one quarter course and the quan- 
tity of problems which can be treated is necessarily fewer. 
This change did make the requirement for a mechanized hand~ 
ling of student programining problems mandatory for Florida 
Institute of Technology. 


One difficulty which might have been anticipated, but 
was not atiginally, was that when the same problems are 
given to subsequent classes, the optimal solutions also 
pass along between the students. Thus, any finite set 
of problems will soon have a complete set of perfect solu- 
tions atailable within the student body so that any student 
who would rather copy a program than write his own finds 
no difficulty in doing this. This becomes particularly 
acute when the course is a mandatory one for ali students 
and does not include just the voluntary Computer Science 
majors. 


With the introductory programming course limited 
to one quarter its contents had to be very carefully 
evaluated so that it could best serve the needs of all 
students ~ both those Computer Science majors and the 
larger body some of which would not have any further formal 
programming. As a result it was deemed necessary to include 
a higher level language in the course and FORTRAN was chosen. 
The result is that only about haif of the course is devoted 
to machine/symbolic language. Moreover, the machine language 
had to be a particularly simple one. 


Student problems would really have to be prechecked 
before running On either the machine language or the sym- 
bolic language evaluator because they could fail to run 
to a finish or worse yet could destroy the evaluator or 
other resident programs in the computer. 


New Direction to Program 


As a consequence of the difficulties described, several 
changes occurred. A very simple machine/symbolic language 
was developed for an artificial but representative computer. 
Addressing was done in decimal rather than binary so that 
concepts could be taught without the additional burden 
of simulateneous familiarization with another number system. 
Memory was limited to 1000 words. 


The SIM 610 program described in this report simulates 
this artificial six decimal digit computer in that programs 
in the artificial language are executed as if the computer 
was real. 
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Instead of a formalized set of fixed problems, the 
approach taken was that any problem (prepared by the instruc- 
tor Or an advanced student, for example) could be used as 
a master, and the students problems would be graded against 
that as a standard. Thus there is no final formal set of 
problems; the student problems are simply made up by each 
instructor for each course as he needs them. Moreover, it 
is not assumed that the instructor's program solution is , 
optimal, and it is quite possible for a student grade to 
be higher than that of the standard provided by the instructor. 
Flexibility is provided for the instructor to place weighting 
factors on the various points to be considered in grading, 
changing them from problem to problem or even at different 
times for the same problem, depending upon where he wishes 
emphasis placed. For example, if he is emphasizing program 
running speed, a high weight can be given in the grade for 
fast running time as actually measured in terms of actual 
operations used and their execution times. 


The SIM-610 simulator has been used for four quarters 
and with over 600 students. Surveys of student, instructor, 
and machine operator observations are included in this 
report. The Assembler Monitor System has been in informal 
use and aids in the writing of assembly language programs. 
The grading portion of the Assembler Monitor System has not 
been completely debugged, but Since it has not had to serve 
large numbers of students this has not proved a problem. 
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-” SIM 610 SIMULATOR SYSTEM 
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Philosophy for Automatic Grading of Student Programs 


In order to grade a student's program, it is neces- 
sary to determine its operating characteristics, (i.e. what 
it does). It is not possible to determine what a program 
does except by going through it step by step, except in 
specialized cases. This means either running or simulating 
the student program. Although it would theoretically be © 
possible to determine other factors about a students’ pro- 
gram not determinable simply by running or simulating it, 
the process involved would be too complex and time consuming 
to be practical. 


There is one major objection to this method, however. 
If the student programmer makes a minor but crucial mistake 
anywhere in his program, his grade could be reduced to zero, 
even though the major part of his program works. This can 
be handled, however, by giving the student programmer 
enough debugging aids to allow him to debug his program and 
re-run it for a better grade. It should be noted that in 
practice, a computer program, no matter what methods used or 
how skillfully written, is worth nothing if it does not 
work. (We will take up the question of partially finished 
programs again later). 


It is, therefore, necessary in order to grade a student 
program, to actually run it either through simulation or by. 
allowing the execution of the instructions of the program. 


If the student program is to be graded, however, the 
grading program must eventually regain control from the 
student program. This is no problem if the student's pro- 
gram functions properly and exits normally when finished 
doing the job. However, if the student's program contains 
an infinite (unending) loop, the grading program must be 
able to abort the student program and tell the student the 
reason for aborting. This can be best done by aborting the 
student program after a certain amount of run time or after 
a certain number of instructions have been executed (which- 
ever is more conviently available on the system). The 
maximum amount of time thus set, must be large enough to 
allow even the inefficient student's program to complete 
execution; yet not allow the computer to be tied up an exces- 
sive amount of time on programs containing infinite loops. 
As a backup to this, it is sometimes useful to allow the 
operator to tell the grading program to take control. The 
specified method or combination of methods must be matched 
to the computer being used. 


It should also be noted that this same instruction 
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count or runtime can be used later in grading the student 
program (see below). 


It is necessary, therefore, to gain control after the 
student program is through executing, even if it has an 
infinite (endless) loop. 


When the grading program has gained control, it must 
determine whether or not the student program has done the 
job assigned. In some manner the grading program must be 
told which problem the student is doing. It must also have 
been given before the student program was run, enough in- 
formation to determine whether the student did the problem 
properly. 


In order to prevent cheating, all problems should be 
designed so that the output is a function of the input. 
For example, a problem to sum the first 100 integers is 
not a function of an input parameter. Specificlly, the 
answer is a constant, 5050. The problem can be made suit~. 
able if the sum of the first "N" integers is required, 
where "N" is input to the student program. So long as the 
student does not know what value "N" will be when his pro- 
gram is finally graded, he must do the problem correctly 
in order to be assured of the correct answer. 


In order to be sure that the student will not be able 
to cheat in this manner, the input data should be changed 
from practice runs before the final run of the student pro- 
grams when the grades are recorded for the instructor. 


In order to do the above functions, the grader must be 
able to feed input data to the student program. It must 
also have the proper answers to the problem based on this 
input data. The grader must also be told if some of the 
answers are more important than others. 


What, then, should the grader do if the student pro- 
grammer gets only part of the right answers? Partial cred~ 
it can be given for some of the answers correct, the answers 
in the wrong order,.or in the wrong places without too much 
difficulty. It should be: remembered, however, that if the 
students are given sufficient opportunity to debug their 
programs, there will be little need for the grading routine 
to have these capabilities. 


It is necessary, therefore, for the grading routine to 
calculate whether or not the students program did the job 
required on the basis of his answers being correct for the 
given input. 
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Since most students will complete a program that 
does the job correctly, the students grade must. be based 


upon other factors in addition to the amount of the job com- 


pleted. The best factors are those actually used to judge 
practical programs in industry: Runtime (or number of in- 
structions executed in the student program if more easily 
available), and program length (ie. amount of storage space 
used by the student program). In addition, if the student 
program ended for some reason other than normal exit (ie. 
invalid instruction executed, excesive runtime, or other 
reason), then credit should be taken off. 


The following formula is implemented as a weighting 
function to calculate the student's raw grade. 


G=JxExf(a/Rtb/tte) 


where 


Q 
i 


Raw grade to be computed; 


J = A factor whose value is zero if no indication 
was found of the job being done, and is maxium if the job 
was done completly correctly by the student program; 


E = A factor whose value is maxium if the student 
program ended in normal exit; 


R = Runtime (number of instructions executed) ; 


L = Length of the program in core; and a, b, c are 
positive "weighting" constants for the given problem. 


_One method of establishing "a", "b", and "c" is to 
make "a" and "b" functions of the runtime and length (re- 
spectively) of a standard program, prepared by a profic- 
ient programmer that does the job correctly. This stand- 
ard program can also be used to initially calculate the 
proper output from the given input for use by the grader. 
The constant "c" provides a basis for a non vanishing 
grade even in the event of vanishingly snall credit for 
runtime, R, and length, L. 


Finally, this raw grade must be curved against that 
of the other students doing the same problem. It is our 
experience that the raw grade curve can vary widely from 
one problem to another. Therefore only if the student's 
raw grade is compared to that of thers doing the same prob- 
lem can his grade be’curved properly. All student pro- 
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grams must be run for a grade before any can be given a 

grade in familar letter (A,B,C,D, or F) or percent (100% 
to 0%) form. The raw grade (based only on the standard 

program for the problem) can be given each time the stu- 
dent program is run; even for debugging. 


The grading program calculates the student's grade 
on the basis of whether or not he did the job, the number 
cf instructions executed (or the runtime, if available), 
the length of the »rogram (how much space it uses in 
core), and how well his program did relative to the other 
students doing the same job. Moreover, the grade can be 
weighted by the instructor depending upon where he has 
placed emphasis in the programming assignment. 


‘Finally, it is necessary to output the information 
thus determined by the grader. The studentisgivenas much 
information as necessary. This includes a program iisting, 
reason for exit, runtime, length in core, and whether or 
not the program has completed the job successfully. In 
addition, debugging aids such as tracing all or part of the 
students program as it executes are included. When the 
programs are run for t:he final grade, information is sup- 
plied to the instructor so that the grades can be curved 
and recorded. 


1L 


Q 


ERIC 


The SIM 610 Computer 


The SIM 610 is an artifiicial machine, simulated in the 
FORTRAN language, which will permit the student to program 
in machine language, and run as if his program were per- 
forming on an actual machine. The simulated computer has a 
word length of 6 decimal digits plus sign. When words are 
used for instructions, they are broken into three fields. 
The first two digits are the operation code, the next digit 
refers to any one of nine index registers, and the final 
three digits permit addressing any one of 1,000 addresses. 
Registers and data flow in the SIM 610 computer, are shown 
in Figure 1. Following Figure 1, let us trace the operation 
required for the execution of a single instruction. The 
instruction address register will contain the address of 
the next instruction to be executed. Making the assumption 
that the tag register reads 0 (that is that none of the index. 
registers are referenced) the address from the instruction 
register passes through the adder with nothing added to it 
and enters the memory address register. This results in the 
selected memory contents being placed in the memory data 
register, and from here it is transferred to the instruction 
register. While in the instruction register, the first two 
digits identifying the operation go to operation control to 
be decoded into the actual operation to be performed. The 
tag digit goes to the tag select switch. Here one of the 
index registers is identified if the tag digit is between 
one and nine. Finally the address is transmitted back to 
the memory address register through the three digit adder 
at which time the contents of one of the index registers may 
be added if it had been previously identified. The number 
now in the memory address register identifies the location 
of data in memory and this data is then brought into the 
memory data register, From the memory data register, the 
data may pass either to the input-output control, or to 
the transfer added and accumulator. If the operation is a 
print, the contents of the memory data register will actually 
be printed on the output print device of the real computer. 
If a data transfer operation is involved, such as a load 
accululator, the data will pass through the transfer added 
into the accumulator. If an arithmetic operation is 
involved, such as subtract from accumulator, or add to index 
register, the transfer adder will pass the data in the 
proper direction. Arithmetic operations may cause either 
the sign latch or the overflow latch to be set. The subse- 
quent use of these latch indicators is described in Appendix 
I where each of the commands is detailed. 
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Problem Definition to the Student 


Each problem included in the automated problem set 
which students must program, must be defined to the student 
and to the computer simulation program so that the desired 
automatic evaluation can be achieved. In addition to 
the fundamentals of the definition, a properly solved 
problem must be supplied to the cciputer. This solution 
must meet all of the specifications of the problem and 
should also be well programmed; that is, it should be 
optimum with respect to those characteristics where optimum 
is specified and should be near optimum in other respects. 
Thus, the solution should be prepared by the instructor or 
an otherwise well qualified programmer. This solution is 
called the "Standard program" and all student programs are 
evaluated with respect to it. Nothing precludes a student 
bettering one or more of the parameters of the "Standard 
program" and thus receiving a better relative score than the 
standard. , 


Characteristics which must be specified in each problem 
definition, provided they are appropriate are listed below: 

Read: How much data must be called into the simulated 
computer by the program? Example: Read one card containing 
a number N which is the order of a polynomial whose coef- 
ficients are on subSequent cards. (A total of N+2 data 
cards are required: 1 containing the number N and N+l 
containing the coefficients). 


Store: Where are results or intermediate results to be 
located? Example: Calculate f(x), f'(x) and £"(x) and 
place them in locations 200, 201 and 500 respectively. 


Output: What data is to be printed and in what order? 
Example: Print N (a problem parameter) and the contents 
of locations 100.and 101. 


Statement: A statement of the problem to be solved. 
Examples: (1) Read in 50 items of data and add them. 
(2) Print out the squares of the integers from 6 to 20 
inclusive. (3) Read in N numbers and sort them in 
increasing order of magnitude. Print out the sorted list. 


Problem number: A two decimal digit number identifying 
the number. of a problem set. : 


Appendix III contains some of the problems which have 
been assigned and solved by student classes. 
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Student Programs 

Each student program is submitted as a deck of punched 
cards as follows: the first physical card in the deck is 
a beginning of program card, the next cards are the program 
proper. These are followed by an end of program card and 
finally by any data cards required. Format of the cards is 
as follows: 


Beginning of program card 


Column 1 | * (asterisl:) 
Columns 2-7 000001 
Column 8 1 if a deck listing is desired 


0 if a deck listing is not desired 
Columns 9-13 five digit student number 
Column 14-15 two digit problem number 
Column 16 (blank) 
Columns 17-51 students name (LAST FIRST) 


Program card 


Column 1 + or - (blank is treated as +) 
Columns 2 and3 operation code (see Appendix I) 
Column 4 tag digit (0 if no index desired) 


(1-9 for index register) 
Columns 5,6,7 three digit address (000-999) 


End of program card 


- Column 1 * (asterisk) 
Columns 2-7 999999 
Data cards 
Column 1 + or - (blank is treated as +) 
Columns 2-7 six digit integer (ieading zeros if 


necessary). 


When running programs for practice and debugging, 
the student should supply his own data deck following the 
end of data card and use an illegal problem number (e.g. 00). 
The data he supplies is strictly for his own use, and to 
satisfy himself that his program is working. If the student 
has supplied more data cards than required, and the program 
finishes before using all of them, SIM simply ignores the 
subsequent cards as it looks for the next students beginning 
of program card and starts on the next program. if the student 
has supplied fewer data cards than required and the attempt 
to read another card brings out the next students beginning 
of program card, then the present program is terminated 
and the next one begun. When a program is run for credit, 
data cards are not supplied by the student and instead "stan- 
dard" or test data is supplied by the system from disk file 
storage just as if it were actual cards being read on command. 
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The first output command executed by a student program 
starts a new page of printing and prints one word of data ; 
from its effective address. Execution of each subsequent 
output command causes one item of data to be printed ona 
fresh line. If the trace program is in effect, the output 
will be intermixed with the trace, but still on a separate 
line. 


Each run of a student program is provided with a trace 
of the first 25 instructions executed. Trace information 
(figure 2) includes on one line, the following information: 

XEQNO - the number of the instvuction just executed 

(1-25) 

ADDR - the decimal address of the instruction just 

executed. 

C(ADDR) - contents of the address above (i.e. the 

instruction just completed. 

MNEMONIC - monemonic instruction including tag and 

decimal address. 

C(XR) - contents of index register referenced (before) 

EA - effective address in instruction 


C(EA) - contents of effective address (berore) 

C(ACC) - contents of accumulator (before) 

C(XR) - contents of index register referenced (after) 
C(EA) - contents of effective address (after) 


SIGN - sign latch setting 
OVFL - overflow latch setting 


Another helpful output from a student's program run 
is the memory dump. This dump consists of up to 100 lines 
of printout, each line containing ten words (sign plus six 
decimal digits). Each line is headed by a decimal identi- 
fier indicating the first word of the 10 word block it 
contains. No blocks (lines) are printed if at least one word 
in the line was not changed by either writing or executing 
the program. Unchanged words are left blank in a line. 
Thus, a few lines of printout may suffice to show everything 
that changed in a short program. In addition (in fact prior 
to) the memory dump, the contents of all index registers are 
printed sequentially on one line. Those which were unused 
are again left as blank in the printout. 


Additional comments which may assist the student in 
debugging, are provided with the trace and dump and include 
one of the following; 


EXECUTION COMPLETE 

PROGRAM TERMINATED DUE TO EXCESSIVE RUN TIME 

INVALID INSTRUCTION ENCOUNTERED AT ---~ 

EXECUTION TERMINATED BY INSTRUCTION AT ---~ ATTEMPTING 
TO READ 1ST CARD OF NEXT PROGRAM INTO ----. 
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Finally, scoring information is included with calcu- 
lated scores. On a grading run, the standard program 
weighted score is shown, otherwise it is zero.-: " 

Figure 2 is a SIM 610 diagnostic printout for the 4 
student as described in this section. 
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Initialization of a SIM 610 Problem 


The “initialize grader" program (INITG) accepts a set 
of ten (10) cards containing parameters of the problem to 
be run, and together with other systems programs "load 
program" (LOADP) and "dump grader" (DUMPG) and “auxiliary 
initialization program" (INI2G) provides the problem 
description to the simulator. These ten cards and their 
content and function are described in the following para- 
graphs. ™ Hs 


Card 0: Character set card ae 


Columns 1 - 16: The integers and operation symbols 
0123456789-b+&*b where b designates 
a blank. 


Column 17: Data Set Code (an integer from 1 to 6 
inclusive). 


The character set identifies the permissible character set 
and the data set designates a pair of records to be read 

from "Simulator data" (SIMDT) into DATA1 and DATA2 for use 
when the standard program executes a read card instruction. 


Column 19: — Final Grading Indicator. Set to 1 if 
the points and calculated grade of a 
student program are to be stored in 
SMSTU. Not used during initialization. 


Cards 1 through 9 are the program description and all have 
the same format - 10 fields of six place integers, starting 
in column 1 and having two blanks between fields. 


Card 1: Problem number 
Field 1: Problem number. This is the record number 
in the "File of Standard Grades" (FSTDG). 


Card 2: Read Groups 
Consecutive Fields: Number of cards required in each 
group (NRDSR) for a number of 
groups up to 1 and including ten. 


Card 3: Read Group Start 
Consecutive Fields: The location of the first card 
in each read group corresponding 
to card 2 (LOCRD). 


19 


Card 


Card 


Card 


Card 


Card 


Card 


4: Store Answers 

Fields 1 - 5: Each field gives the first of a sequence 
of consecutive locations in which the 
student program is to store answers 
(LCANS) . 


Fields 6 ~ 10: The length (number of answers) of each 
of the sequences starting in the 
respective LCANS locations above (NANSR). 


5 Points Credit 


Consecutive Fields: Each field stores the number of 


grade points credit to be given 

, for correct answers (data matching 
the standard problem) for the read 
groups and their starting locations 
as given in the respective fields 
on cards 2 and 3. (PTCR) 


6: Proper answer location 

Fields 1 - 5: Each field gives the number of points 
for placing computed answers in the 
proper locations (regardless of their 
correctness) as credit for satisfying 
this part of the problem specification. 
Proper locations are specified by the 
corresponding fields 1 - 5 and 6 - 10 on 
card 4. (PTCA) 


Fields 6 ~ 10: not used. 


7: Correct Answers 

Fields 1 -~- 5: Each field contains the number of points 
to be given for each correct answer 
found in the locations identified by 
card 4. (PTCC) 


Fields 6 - 10: not used. 


8: Printed answer locations 

Fields 1 - 5: Each field contains the number of points 
to be given if the correct answers are 
found stored in the appropriate group 
for printing (even if not printed in the 
correct sequence). (PTCW) 


9: 

Field 1: Number of points credit if student program 
execute same number of card read instructions 
as standard program. Locations where the 
data read is placed is not considered here. 
(PTCKN) 
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Field 2: Number of points credit for obtaining each 
correct answer but storing it in an incorrect 
location (although within total area desig- 
nated for answer storage). If an essential 
ingredient of the problem is intended to be 
sequencing or placement of results then 
credit points should be set to zero. (PTCO) 


Field 3: Number of points credit for obtaining correct 
result for output but storing it in an 
incorrect location (although within the total 
area designated for output data storage). 
(PTWO) 


Field 4: Number of answers written by standard problem. 
This number appears on student's dump but is 
not given any point value by the system. 
(NANS) 


Field 5: The contents of this field gives the start~ 
ing point within the data file for the 
problem under execution for the reading of 
simulated data cards as called for by the 
student (or standard) program. (FDATA) 


Field 6: The number in this field establishes a maxi- 
mum on the number of operations executed by 
a given student program. If this many steps 
are executed, it is assumed that the program 
is ina loop or is otherwise excessive in 
its running time and the program will be 
terminated. (MAXRT) 


Field 7: Percent of grade for run time (steps executed 
for solution). {(PCGRT) 


Field 8: Percent of grade for program length (Length 
of student deck). (PCGPL) 


Fields 9 ~ 10: not used. 


Figure 3 (a and b) illustrate an actual set of cards 
from a problem set. This may be correlated with problem 
3 in Appendix II. 
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Operation of SIM 610 


Three files must be defined in order to prepare the 
SIM 610 program to run a batch of student programs, These 
files are: 

1) SIMDT This file consists of six pairs of records 
of 106 words each pair, and contains any simulated 
data required for problems to be run. 

2) FSTGD This file consists of 24 records of 160 
words each. Each record is associated with one 
problem; thus 24 different problems may be evaluated 
in one batch. 

3) SMSTU This file consists of 800 records of 40 
words each. Each record is associated with one 
student; thus 800 student's programs may be eval- 
uated in one batch (assuming each student has only 
one program.) 


An initialuzation is required at the outset. of a batch 
run in order to: a) assure that grades associated with any 
problem numbers undefined for the current batch give a zero 
grade (if not initialized, a meaningless result could occur 
when an undefined problem number was attempted) and b) set 
the "pointer" in the first record of SMSTU to the first 
student record (as each student deck is processed, data on 
his program are placed in the SMSTU at the next available 
position. The pointer keeps track of the next available 
position so that batching of student problems for grading 
May actually take place over more than one time on the 
computer.) 

Loading of data into one of the records of the SIMDT 
is done by the INDFG subprogram. A character set card, 
with the symbols 

0123456789-b+&*b (b is a blank space) 
in columns 1 through 16 and a digit 1 through 5 in 
column 17 to designate which pair of records is to be 
loaded, must precede the data cards. This is followed by 
up to 106 pairs of. data cards which will be entered into 
the designated records. 


Now the SIM system is ready to initialize or run 
problems. For initialization, INITG is executed, and 
reads for each problem a character set card, nine problem 
definition cards, a data set of 106 cards if column 17 of 
the character set card was zero (did not indicate one of the 
six prestored DATA sets in SIMDT), and a standard program in- 
cluding beginning and end of program cards. Further details 
are given under Initialization. For running a series of stu- 
dents programs, STRTG is executed, which requires only one 
character definition card, followed by a DATA set deck if the 
character card so indicates, and then the student programs 


stacked one after another. Normally students are given 
some time to debug their programs, and the results may 

not be desired to be recorded beyond the listing - dump 
which is given to the student. This will occur if anything 
but al is in column 19 of the character set card. — When 
the deadline for finished student programs has passed, STRTG 
is run using a 1 in column 19, and the student's student 
number, name, points received (3 categories) and raw grade 
are stored on a record of SMSTU for each program, except 
those with mispunched cards (such as a number in column 1), 
which are not executed or. dumped. 


Whereas initialization may be terminated at the end 
of the present program by turning off sense switch 2, no 
provision is presently made for exiting form SIM 610 in 
normal operation (under STRTG), since runs are generally 
of long duration and abnormally terminating a FORTRAN pro- 
gram is simple with most computers. 


After a class or group of students programs have 
been run for grading, the file SMSTU should be dumped to 
cards for reduction to instructor-useable forms. Thé pro- 
gram DMPFG accomplished this, and also makes a listing. 
This gives the programs in the order run, and is useful 
for finding decks or listings (if not yet returned/given 
to instructor) or identifying mispunched programs, which 
are not run, and are in the deck but not on the list. The 
deck is used in conjunction with a simple listing program 
and a card sorter, as described below. 


The cards may now be sorted in ascending raw grade 
order and separated by problem, giving a list useful for 
marking grade divisions; they may be resorted in alphabetical 
order or student number order for instructor's convenience. 
An advantage over on-disk sorts arises if correction is de- 
sired of cards which do not have last name first, or have 
other obtainable data missing. If more than one class is 
represented,: the cards may be sorted .on the field(s) chosen 
to distinguish classes, and each class deck listed in 
various sequences to the taste of the professor. In fact, 
the separate decks may be given to each instructor to cross 
index as he wills. Note that the original file is still 
available until INTFG is used to clear it. (Caution: if 
same problems are to be reused, references to the file 
FSTDG should be removed from INTFG, or else this will also 
be cleared; however, it is normally desired to change to 
a new data set both before and after grading, thus requiring 
reinitialization of the problems anyway). 
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ASSEMBLER MONITOR SYSTEM 


The Assembler Monitor System differs from the SIM 616 
system in a number of ways. First of all, the Assembler 
Monitor System uses an actual computer language -- that 
H of the IBM 1130, a small general purpose computer, and thus 
can only be used on an IBM 1130. As was discussed before, 
the SIM 610 system can be used on any computer that has a 
FORTRAN compiler. 


There are some advantages to the Assembler Monitor 
System (AMS), however, Unlike SIM, AMS can use subroutines, 
including all subroutines available for the system, This 
also means that AMS allows more flexibility in input/output 
and allows for problems of much greater complexity. 


Two further uses for AMS were found during development. 
Like most small computers, the IBM 1130 has no memory pro- 
tect hardware, and no available software to provide this 
feature. Therefore, we developed as part of AMS a software 
memory protect to prevent the student from accidentally 
destroying the Assembler Monitor itself, or the core-resi- 
dent portion of the IBM supplied monitor-supervisor system. 
This feature of AMS has proved useful in itself as a debug- 
ging aid for the IBM 1130, especially for hard-to-debug 
assembler language programs and subroutines. Secondly, it 
was found that AMS could monitor FORTRAN programs on the 
IBM 1130 just as easily as assembler language programs, thus 
opening the way to additional uses for the system. 


This memory protect software, a necessary part of the 
Assembler Monitor System, is an extremely complex system 
in itself. It comprises most Sf the AM program, which con- 
sists of more than 1000 cards . It is. written tin the assem- 
bler language of the IBM 1130. 


sop inane pba to tease apes ee oa 


The portion of this report on the Assembler Monitor 
‘System is presented in the form of descriptive handouts to 
those using the system, and has worked quite effectively. 
Each of the subsequent sections is such a handout. 


26 


TEI RED en ee ri eye ee eT et A RD et 


(<) 


Calling the Assembler Monitor System 


In order to put your program under the control of the 
Assembler Monitor System, it is only necessary to call AM 
from your program, giving it the problem number and your 
student number. However, there are two pitfalls that must 
be avoided: 


1. Your call to AM must be physically the first CALL 
or LIBF in your mainline program. 


2. Your call to AM should be the first executed 
statement in your mainline program. Should any 
instructions be executed before the call to AM, 
they will not be under control of the Assembler 
Monitor System. 


Your input and output are in COMMON, located at the 
very end of core. In order to set aside this space at the 
end of core, you must use a COMMON statement. 


You should not attempt to call AM more than once in 
any given program. An attempt to do so will result in the 
Assembler Monitor System suppressing further execution. 


Below is a sample program including cailing sequence 
for the Assembler Monitor System. (Numbers in next line are 
card column positions.) 


1 22 27 35 42 

//J3OB 

//ASM 

*COMMON 48 (Note: 48 is a sample number, only) 
*LIST (Note: optional) 


Program, constants, 
etc.; not including 
CALL or LIBF 
statements. 


START CALL AM 


DC PRNO 
DC STNO 
Program, constants, 
calls, libfs, etc. 
STNO DC 417 Your student number 
PRNO DC 4 Problem number 
Program, constants, 
calls, libfs, etc. 
END START Last card 
27 
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Before each machine language instruction is executed, 
AM tests the instruction to determine if its execution 
would alter the core resident monitor, alter AM itself, make 
an invalid entry to a subroutine, or an invalid alteration 
of a subroutine. If its execution would have one-of these 
undesireable effects, further execution of the student's 
program is suppresseu and a link is made to DBUG as ex- 
plained elsewhere. Further execution of the program is 
also suppressed if a valid exit is reached, or the run time 
becomes excessive. 


If, on the other hand, AM decides that the instruction 
should be allowed to execute, the instruction counter is 
incremented and control is passed to the instruction that 
was tested. 


Immediately after the execution of the instruction, 
control returns to AM by means of a hardware interrupt. 
This interrupt results from the machine being in interrupt 
run (also called trace) mode. AM then tests the next in- 
struction, as before. This procedure of first testing each 
instruction and then allowing its execution is continued 
until further execution of the program is suppressed, as 
described above. 


To cause the Assembler Monitor System to monitor your 
program, you need only call AM at the beginning of your pro- 
gram. When control is passed to AM, it reads the student's 
input data from the disk, initializes parameters to be used 
during execution to tell how core has been partitioned for 
the core load, forces the operator to place the machine in 
interrupt run mode, and gives control to the testing portion 
of AM so as to test the first instruction of the student's 
program. 
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Interpretation of Output 


- After the Assembler Monitor has decided that the stu- 
dent's program should not be allowed to execute further, 
control is passed to DBUG. DBUG moves the paper to the top 
of the page and prints on the right-hand side the student 
number, problem number, contents of the accumulator, exten- 
sion, index, carry, and overflow registers and the floating 
accumulator. Student number and problem number are given 
as positive decimal numbers; the accumulator, extension, and 
index registers are given in hexadecimal; the carry and 
overflow are given as being "on" or “off"; and the floating 
accumulator is given in hexadecimal and decimal. 


On the left-hand side is printed a core map which 
gives the starting addresses and lengths of eleven consecu- 
tive partitions that make up a core load. The lengths of 
these partitions vary according to the program(s) in the 
core load. © 


The first partition is the Index Register Area, which 
consists of the first four words of core (i.e., addresses 0, 
1, 2, and 3). It is so called because it includes the three 
index registers, which are in words 1, 2, and 3 in core. 


The second partition is the resident monitor, which in- 
cludes the core resident monitor supplied by IBM (excluding 
the first four words of core) and the core image header 
which is located immediately thereafter. 


The third partition is the mainline program, which in- 
cludes everything from the end of the core image header to 
the beginning of the Assembler Monitor (AM). 


. The fourth partition is the AMS program, which consists 
of the program AM, and is the in-core part of the Assembler 
Monitor System. 


The fifth partition is the subroutine area, which in- 
cludes all subroutines, regardless of type, located between 
the AMS program and the interrupt level subroutine area. 


The sixth partition is the interrupt level subroutine 
area, which includes all interrupt level subroutines eXeeer 


Tevels two and four. 


The seventh partition is unused core. This partition 
of core is not used by the core load. 


The eighth partition is the LIBF transfer vector, which 
consists of three words for each library function entry 
point in the core load. 
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The ninth partition is the floating accumulator, which 
consists of six words of core used aS an accumulator for 
floating point arithmetic. There is no floating accumulator 
if there is no LIBF transfer vector. 


The tenth partition of core is the CALL transfer vector, 
which consists of one word for each CALL entry point in the 
core load. The CALL transfer vector will sometimes include 
a dummy word in order to make the floating accumulator begin 
on an even core boundary. 


The eleventh and last partition of core is COMMON, which 
is located at the very end of core. It is in this partition 
of core that the input and output occur. COMMON is saved 
between LINKs by the monitor system; i.e., it is still in 
core when DBUG and GROUT are loaded in turn. 


On the left-hand edge the starting address and length 
of each partition are printed in hexadecimal. On the right- 
hand edge the word ADDR is printed beside that partition in 
which the effective address of the instruction causing the 
exit was located. If the exit was not caused by the effec- 


tive address, the word PREA is printed beside the partition 
.in which the last effective address formed was located. 


DBUG then skips a space and prints the instruction 
causing the exit and the prior instruction in hexadecimal. 
To the left it prints the real address (the address of the | 
instruction in core) and the loading address (the address of 
the instruction relative to the loading point of the main- 
line, which is the address found on a relocatable assembler 
mainline listing or a FORTRAN mainline listing). 


If the program failed to clear location $IOCT (/0032 
hexadecimal), a line is printed indicating this fact. This 
error would indicate that an interrupt service subroutine 
was not incrementing or decrementing $IOCT properly. lLoca- 
tion $IOCT should be zero if and only if there are no I/0 
interrupts pending. 


A line is then printed giving the reason why the stu- 
dent's program was prevented from further execution, i.e., 
the reason for exiting. This line is printed in the form: 


AMS xx (message giving reason for exit) where xx is the 


error number. The error numbers are given in the following 
table: 
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00 Instruction is located in COMMON. 

01 Instruction is located in CALL transfer vector. 

02 Instruction is located in floating accumulator. 

03 Instruction is located in LIBF transfer vector illegallv. 
04 Instruction is located in unused core, 

05 Instruction is located in interrupt level subroutine. 
06 Instruction is located in subroutine area illegally. 
07 Instruction is located in AMS program. 

09 Instruction is located in monitor illegally. 

OA Instruction is located in index register area. 

OC Attempt to alter CALL transfer vector. 

OE Attempt to alter LIBF transfer vector. 

10 Attempt to alter interrupt level subroutine. 

11 Attempt to alter subroutine area from mainline. 

12 Attempt to alter AMS ‘program. 

14 Attempt to alter resident monitor. 

15 Attempt to alter word zero in core. 

1A 64 instructions did irrelevent access of core. 

1B Program terminated due to excessive run time. 

1c Invalid instruction. 

20 Valid exit. 


Any other indicators indicate an error in the Assembler Mon~ 
itor System, and should not occur. 


Next, the message ADDRESSES OF LAST n_ INSTRUCTIONS 
EXECUTED is printed, where n is a decimal number with a max- 
imum value of 64 giving the number of addresses listed 
thereafter. If the program ran for less. than or equal to 
64 program steps, all the addresses, in the order of execu- 
tion, will be listed. If the program ran for more than 64 
program steps, only the addresses of the last 64 are listed. 
Both the real and loading addresses are listed in hexadeci- 
mal. 


If any instructions did an irrelevent access of core 
(i.e., they did no harm, but did no good, either), then the 
addresses of these instructions come out in a table titled 
ADDRESSES OF INSTRUCTIONS LOADING IRRELEVENT DATA where 

is a hexadecimal number. As above, each address is 
given both relative to the beginning of core ("REAL") and 
relative to the beginning of the core load ("LOAD"). 


In the event that the problem number is zero (or is 
not the number of a defined problem) no LINK is made toc 
GROUT, the program is not graded, and the only other in- 
formation printed is the program load length (both in hex 
and decimal) and the number of instructions executed (both 
in hex and decimal). 
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If the problem number is that of a defined problem, 
then a link is made to GROUT which outputs the student's 
grade and reasons behind it in three sections titled 
POINTS FOR CORRECT ANSWERS, ADDITIONAL POINTS FOR OUTPUT, 
and POINTS FOR PROGRAM EFFICIENCY. The total grade is the 
product of the total points for each of the three sections 
(divided by one million to scale it down). The total points 
for each section is printed after the word total at the 
bottom of each section and is egual to the sum of the points 
earned under that section as listed under the right-hand 
column. The points for each line are calculated from how 
well the student program did relative to the standard on 
this point. The total grade is printed beside the message 
TOTAL GRADE EQUALS at the bottom of the page. The total 
grade and each of the separate totals should xange from 
zero to one thousand, although it is not impossible to make 
a grade greater than one thousand. 


After printing the total grade, control is returned 


to the IBM supplied monitor supervisor, which begins looking 
for the next job. 
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Operator Procedure and Interpretation of Operator Console 
Displays 


With student program decks in the card reader and the 
system initialized, the console typewriter will display the 
following message: 


SET MODE SW TO INT RUN 


At this time, the operator must set the mode switch 

(located on the right hand side of the display panel) to 
“interrupt run" and press the "program start" switch. If 
"program start" is pressed without first setting the "“inter- 
rupt run" condition, the above message will be printed 
again. If the machine is already in the interrupt run mode, 
the message will not be printed. While in interrupt run 
mode, the "stop" button will have no effect. 


The Assembler Monitor System has a provision for 
terminating a student due to excessive run time (based. on 


‘a count of operations executed) and this is done automati- 


cally. However, an operator may abort a student program 

by momentarily placing the bit 11 switch on the console in 
the up position. In case this does not abort the program 
and cause an appropriate error message to be printed, then 
the program is not under Assembler Monitor System control. 


If an abort is desired while the machine is in the 
interrupt run mode and not under control of the Assembler 
Monitor System, the operator must first take the machine 
out of interrupt run mode and then press "interrupt re- 
quest." Alternately, he can first press "interrupt re- 
quest" which will stop the computer, then change to the 
run mode and press "program start.” 


If bit switch 0 is up, the program will stop after 
each machine language instruction is executed under con- 
trol of the Assembler Monitor System and display the 
contents of the Accumulator, Extension and Carry and Over- 
flow status. - 


Bit switches 14 and 15 are used to control student 
core dumps and displays to the operator during student 
program execution under control of the Assembler Monitor 
System. If bit switch 14 is up and 15 is down, all rele- 
vant student core content will be dumped on the printer and 
the system will pass to the next student program. If bit 
switch 15 is up, the computer will pause and display a 
coded error number in the storage buffer. register, the 
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address of the instruction causing the exit in the accumu- 
lator, and the effective address of the last instruction 
employing an effective address in the extension register. 
Upon restarting, if bit switch 14 is also up, then the | 
relevant student core data will be dumped on the printer. 
With neither switch 14 or 15 up, no pause or dump occurs. 


An override feature is provided which may be used 
with caution: if bit switch 13 is up after a pause caused 
by a program exit and switch 15 being up then the Assembler 
Monitor System will return to the student program. 
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Programs, Subroutines and Files 


Running of the student programs is done under the 
control of the Assembler Monitor System. This system 
consists of seven main computer programs, several standard 
subroutines and four data files described briefly below. 


The Assembler Monitor Program (AM) serves as a direct 
monitor over the running of the student's program, with 
each instruction performed under monitor control. A de- 
bugging aid generator program (DBUGT) prints out a trace 
and other diagnostic aids to the student from information 
provided by the AM. The raw grade is calculated by a 
grading program (GROUT) which calculates the students 
grade, prints it and records it for the instructor. Pro- 
gram GRINT generates information on which the grade is 
based from the standard problem supplied. Program INITD ir 
itializes data for the grading of each student's problem. 
For the.start of a grading run or for each new problem set, 
the system is reinitialized with program RINIT which clears 
the data and grade files. A message input program (MSGIN) 
loads file a message file with the appropriate messages to 
be used by the DBUGT program. 


Subroutines used in the system include. the IBM- 
supplied Commercial Subroutine Package~Version III, and 
assembler subroutine for floating binary to decimal (FBTD) 
and the following special subroutines: FORMT and SHIFT 
are used by DBUGT to decipher assembler instructions HEXIN 
converts four alphanumeric characters representing a hexa- 
decimal number into the integer equivalent. HEX and HXOUT 
convert an integer back to hexadecimal. DCOUT converts an 
integer into five alpha characters representing a number 
in decimal. OUT prints a line of alphanumeric characters 
and clears the output buffer to blanks. DSCTR dumps a 
320 word core sector (length of one disk sector) in hexa- 
decimal to the printer. 


SAVGR contains. three records of 320 words per record. 
Since each disk sector contains 320 words, this file uses 
three sectors. The initial contents of SAVGR are unimpor- 
tant because AM loads the file with new data with each new 
student program. The actual instructions, variables, and 
constants Of AM are stored by that program in three blocks. 
The three records are the 320 words following respectively 
the three DSA statements labeled IOAR1, IOAR2, and IOAR3. 
It is the task of program DBUGT to extract the pertinent 
data from irrelevant coding. SAVGR is referred to in all 
programs by symbolic file number 1. 


35 


QO 
oe 39 


MSGBF also contains three records of 320 words per 
record, giving three disk sectors. It is used by program 
DBUGT to print all words interpreting the output of AM © 
including all headings and in converting.all numbers from 
integer format to alpha characters. Yo initialize MSGBF, 
program MSGIN is executed, reading data from twelve cards 
in FORMAT (80Al), and storing the contents on disk. Refer 
to program listing of MSGIN for contents of data cards. 
MSGBF is referred to in all programs by es file 
number 2, 


The. records of GFILE each contain 16 words with one 
record generated per student program run under the system 
for grading. The length of GFILE can therefore be varied 
with the needs of the user by simply changing the number 
of sectors specified when the file is set up and by chang- 
ing the number of records in the DEFINE FILE statement in 
program GROUT. For example, if the user desired 400 record 
at 20 words per sector, this would require 20 sectors of 
disk. The contents of each record of GFILE will be listed 
and explained later. The contents of GFILE is initially 
set to zeroes by program RINIT. GFILE is referred to by 
symbolic file number 3. 


DATFT contains ten records of 320 words apiece, 
giving 10 disk sectors. Each record contains information 
used by the system in grading a problem of the standard 
data set. The system can therefore. handle a problem set 
of 10 problems. The corresponding record of DATFT must. be 
reset to zeroes before entering a new standard problem in — 

'. the problem set. To reset, DATFT and/or GFILE, execute 
program RINIT, following it by one data card of FORMAT 
(1012,10x,I2). The first 10 fields indicate which records 
of DATFT are to be reinitialized. If GFILE is also to be 
32 is to be left blank. DATFT will be referred to by 
symbolic file number 4. 


To define these four files on disk, the computer 
should be given instructions corresponding to these:. 


// JOB 
// DUP 
*STOREDATA WS FX SAVGRO003 
*STOREDATA WS FX MSGBF0003 
*STOREDATA WS FX GFILE0020 


*STOREDATA WS FX DATFTO010 
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Since programs DBUGT, GRINP, and GROUT are executed 
by links and have quite lengthy core-loads, the running of 
a Student program under the Assembler Monitor System can 
be quite time-consuming. If the user has sufficient area 
on disk, it is suggested that these programs be stored Core- 
Image. This will considerably speed the operation of the 
system. All four data files must therefore be stored in 
Fixed Area on disk. 


' The next step is to execute program MSGIN which will 
read 12 cards of alphanumeric data and initialize file 
MSGBF (see program listing). This file.will be used to 
generate headers and output information by program DBUGT. 
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Assembler Monitor Use 


The Assembler Monitor System has provision for up to 
120 words of input data read by the student program 
determining the grade on up to 120 words of output. The 
input is loaded by AM into COMMON, beginning with the last 
word of core. AM will not load input data beyond the end 
of a student's specified COMMON. Any COMMON beyond the 
number of words of input is filled with zero or some other 
easily recognizable "garbage word" specified by the instruc- 
tor. This is done as'a debugging aid so that the student 
can determine by examining a core dump what, if anything, 
his program has changed. The output must also be in COMMON 
and within the last 320 words of core. The 120 words of 
output can be divided into as many as 10 blocks of consec- 
utive core locations and these blocks can be located any- 
where within COMMON. This permits freedom to: 


1. Give more important answers more credit for grade. 


2. Count part of the grade on intermediate answers 
arrived at in the process of generating the final 
answers. 


3. Remove points for destroying the input in the 
process of obtaining an answer. A further option 
is provided to give points for partially correct 
answers, that is answers either in the correct 
blocks but in incorrect order, or answers found 
anywhere within COMMON. This option can be used 
as a debugging aid by pointing out to the student 
that he has made only a small logic error in 
addressing and not written a program that does 
nothing. 


Program efficiency is determined on the basis of five 
parameters: mainline program length, subroutine length, 
length of COMMON, number of instructions executed, and 
a standard curve or bias. The curve is based on the 
theory that with the high speed of this computer, the 
length of most programs run under the system, the diffi- 
culty of writing in assembler, and inexperience in pro- 
gramming of most students using the system, that a program 
that works should not receive a failing grade no matter 
how inefficient it is. 


; In order to initialize DATFT with the standard input 
data, output buffer locations, and grading factors the 
instructor must perform the following operation%3: First 
Store subroutines INITD, HEX and HEXIN on disk. HEXIN is 
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used to translate core addresses entered in hexadecimal 
(four characters) into integer constants. HEX is used 

to translate DATFT to hexadecimal characters for dump to 
printer. INITD takes parameters problem number and standard 
input and data cards for output locations and grading 
points. and puts them on disk. Since INITD is a subroutine, 
it cannot initialize its own 20. This must be done by a 
short calling progran(written in FORTRAN). This program 
must initialize ISS routines for disk, card reader, and 
line printer and must tell INITD where to find DATFT on 
disk. For Example; : 


//3@B 

//EGR . 

*QNE W@RD INTEGERS 

*EXTENDED PRECISIGN . 

*IGCS (DISK,CARD, 1403 PRINTER) 


DEFINE ‘FILE 4(10,320,U,K) 


~~ program. (see below) 


CALL INITD(... ) 
CALL EXIT 
END 

/ /XEQ 01 

*PILES (4,DATFT) 


5 Data cards. 


The following four integer calling arguments should 
be passed to INITD if called by F@RTRAN: 


1. Problem Number (PROBN) . 


2. Standard Input (STDIP), the first element of 
an array up to 120 words long. 


3. Stancard Input Length (STDIL) , the number of 
words . of input. 
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4. "Garbage" Word (GBGWD), filler for remaining 
student COMMON; e.g., CALL INITD(PROBN,STDIP, 
STDIL,GBGWD) . 


The array STDIP can be initilized by data statements, 
arithmeti# assignment statements, or read statements in 
integer or Al format. (Do not use the commercial CALL 
READ.) If it is desired to place real numbers into STDIP 
it must be remembered that one extended precision real. 
number fills three words of core and that the first element 
of a real array should be equivalenced to the third element 
of the corresponding integer array. This is because FOR- 
TRAN arreys are stored in reverse order in core. For the 
same reason, the first element of STDIP will be placed by 
AM into the last word in core, and following elements will 
be stored into descending core locations. 


i 
tf greater versatility of input is desired, the F@R- 
TRAN program can call an assembler subroutine which gener- 
ates STDIP and in turn calls INITD. In this way, the stu- 
dent can be provided with input in the format of actual 
i nstructions, characters in card-code, paper tape, etc. 
these changes in the calling sequence must be noted: All 
calling arguments must be addresses of the parameters, 
not the parameters themselves. Also, STDIP is the address 
of the last location of input. For example: 


ENT DATA 
DATA eee eeee 
CALL INITD 
DC PROBN 
DC STDIP 
DC STDIL 
oe GBGWD 
EXIT 
PROBN. DC 1 
STDIP BES E 120 
STDIL DC 120 
GBGWD DC /EEEE 
END , 


In this way, STDIP can be filled by such assembler 
pseudo~ops as: 


DC /eee ' hex constant 
DEC 2-word decimal integer or real constant 
XFLC entended precision real constant 
EBC entended BCD interchange code. characters 
DMES printer hex (console, 1132 or 1403) 
| DN name cade constant. 
i 
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i The instructor can provide, by an LIBF to ZIPCO, paper 
tupe or card-code characters. 


i| Output locations and grading parameters are entered 
ll. as data on five cards after the //XEQ and *FILES cards 
(and also after any data cards read by the mainline}. The 
first two cards contain respectively the beginning and 
ending addresses of up to ten output buffers GROUT is to 
search for answers. The addresses are to be expressed in 
a7 four digit hexadecimal, absolute, with two spaces between 
[ address, up to ten addresses per card. 
a ‘FORMAT (10(4A1,2X) ) 
= Card three contains five numbers which are the percentage 
iL points -to be assigned for program efficiency. The first 
4. number is for: mainline program length, the second for sub- 
routine length, the third for length of COMMON, the fourth 
for number of instructions executed, and the fifth is the 
curve. The sum of all five parameters should equal 100. 
Each number should be expresses as three digits with two 
spaces between each. . 
[ FORMAT (5 (13, 2X) ) 
: Card four contains up to ten percentage points for 

_ answers in correct locations, one corresponding to each 
(} answer buffer defined in cards one and two. Card five 
a contains three percentage points determining value of 

' partially correct answers. The first parameter is per- 
7 centage for completely correct answers, the second for 
[| answers within the correct buffers but not necessarily in 
~ correct order, and the third is for answers anywhere within 
= COMMON. The sum of cards gour and five must each equal 100. 
[| The formats are the same as for card three. For example 
‘s {for a machine with 8K core): 


1FFO 1FD) 1FEO I1FE8 
4 IFFF 1FDF 1FE7.. 1FE8 


1 010 010 010 040 030 
| 015 015 040 030 
. 070 020 010 


| At the end of execution, INITD will give a hex dump 
‘ of DATFT to the printer. The standard input buffer 
is stored in DATFT in reverse order to that in which it is 
sh leaded into core. The first element of DATFT (last element 
{| in the FORTRAN dump) is loaded into the last location of 
core and so forth. 


ii. . 41 
l) 


Initilization of Standard Programs 


The final step in preparing the system for grading 
student programs is to run the standard programs. These 
are to be run in the same manner as student programs, 
with the following changes in operating procedure: 

1. Parameters to be passed to AM are the address of 
problem number and a student number of -1l (EFPF in hexa- 
decimal). 

2. All data switches on the console must be placed 
in the up position (FFFF hexadecimal). 

3. The programwill stop after the first iateuction 
with an exit code of 301C hexadecimal in the SBR. All 
switches except 13 should be placed in the down position 
and the program started. The program should now stop with 
3020 in the SBR (normal Exit). (If a core-dump is desired, 
put switch 14 up.) Restart the machine. AM will now store 
the information it has compiled on SAVGR to DBUGT, which 
will read SAVGR, MSGBF, and DATFT. DBUGT will determine 
that the program is a standard and will link to GRINP. GRINP 
will complete the initilization of DATFT with standard output 
and standard program efficiency. COMMON and DATFT will be 
dumped to the printer in hexadecimal. A link will be per- 
formed back to DBUGT, which will then handle the standard 
as if it were a normal student program (as a cross-check 
on the standard.} The standard program will receive a grade 
of 1000 points. All student programs will be graded in 
comparison to this standard grade. Student programs can 
now be run and graded on the system for all problems on 
which the standard has been initialized. 


Computation of Grade 


The computation of the student's grade is based on 
these factors: 
I. Answers 
A. completely correct 
B. partially correct 
II. Program efficiency 
A. Mainline length 
B. Subroutine length 
C. Length of COMMON 
D. Number of instructions executed 
E. Standard curve 
III. Correct termination of program (EXIT) 


To compute I,A, GROUT compares the contents of the out~ 
put data blocks in the students COMMON to the corresponding 
Standard output block, and computes the ratio of the number 
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of correct dnswers the student finds to the length of the 
block (standard number of correct answers). This ratio 
is multiplied by the corresponding grading parameter for 
Correct answers (entered into DATFT by INITD, data card #4). 
The sum of these 10 products is then multiplied by the 
grading factor for totally correct answers (INITD, first 
number, data card #5). GROUT then searches the student's 
output buffers, counting the number of correct answers 
placed anywhere within the correct data block. The ratio 
of the number of answers so found to the total number of 
possible answers, is multiplied by the grading parameter 
for answers within the correct data blocks (INITD, second 
number, card #5). All*of COMMON is then searched for the 
correct answers found in any locations, the ratio to 
total answers is computed and multiplied by the parameter 
for answers within COMMON. The total points for answers 
is the sum of points for correct answers, answers within 
the correct buffers, and answers anywhere in COMMON. 

Points for program efficiency are computed as the 
sum of points for program length, subroutine length, length 
of COMMON, number of instructions executed and standard 
curve. Points for program length are computed as the 
ratio of Standard program length to student program length, 
times the grading parameter for program length (INITD, 
first number, card #3). If the student did not receive a 
perfect score on answers and his program length was less 
than that of the standard, points for program length is 
computed as if his program length was the same as that of 
the standard. Points for subroutine, COMMON, and number 
of instructions are computed in a like manner. 

Total grade is computed by multiplying points for 
answers by points for program efficiency. 25% of the grade 
is lost if the program is terminated by anything but a 
standard exit (AMS 20). A message to this effect is printed. 
The final grade is then scaled on a factor of 1000. It 
is important to note that the grade given by the system is 
based upon a comparison between the student program and a 
"standard" program, and not between the student and other 
student programs. For this reason, the final scaling of 
grades must be left to the instructor. The system does, 
however, give a fair grade in that the grade is proportional 
to the worth of the program (if the grading parameters are 
assigned properly), and that the instructor can easily 
tell from the output supplied to him, where to scale the 
grades. 


Output of GROUT to GFILE 
GROUT supplies certain pertinent information about 
the student's grade to the instructor by entering a 16 


word record on GFILE for each program graded, unless the 
student passes a negative student number to AM. The 
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contents of GFILE is as follows: 
1. Record number (first record has total number of 
records saved). : 
2. Student number. 
3. Problem number. 
4. AMS exit code. 
5. Total grade. 
6. Points for completely correct answers. 
7. Points for all answers. 
8. Points for program Shee Saeneys 
9, Program length. 

10. Subroutine length. 

11. Length of COMMON. 

12. and 13. Number of instructions executed. Since 
a program can possibly execute more than 32,767 
instructions, (the greatest possible integer the 
machine can hold), AM divides the instruction 
count into two words. The first is the number 
of instructions divided by 10000, and the second 
is the remainder of the instruction count. In 
other words, 13 is the low order four decimal 
digits and 12 is the upper decimal digits. 

14. Number of answers in correct locations. 

15. Number of answers within correct data blocks. 

16. Number of answers anywhere within COMMON. 
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CONCLUSION AND RECOMMENDATIONS 


Difficulty with a fixed problem set to be used repeat- 
edly, led to the approach employed which permits new prob- 
lems ‘to be introduced as frequently as necessary. This has 
been effective over several quarters. Experience has shown 
that a first program for the student should be extremely ‘* 
simple - something like reading a number into the computer 
and printing it out. This divorces the mechanics of basic 
input and output from other programming complexities and 
gives the student the satisfaction of having been on the 
computer very early in the course. 


Additional instructions have been considered for the 
repertoire of the simulator. These might include arithmetic 
and cyclic shifts, multiplication and perhaps even division. 
Although these would permit the solution of more sophisti- 
cated problems and may make the simulated computer more like 
an wztual one, they would not make a major advance to the 
learning obtained via the current basic machine commands. 


Provision is made in the present systems for accom- 
modating the five decimal digit student identification 
number at Florida Institute of Technology. This is inade- 
quate for some schools and will ultimately be inadequate 
at F.I.T. when a change to Social Security numbers as ident- 
ification occurs, as it most surely will. 


The Assembly Monitor system is only serving a small 
quantity of people - those computer science majors who use 
it in machine language programming. However, they are not 
required to use it. Moreover, nearly all problems at the 
machine language level, have been individually designed and 
must result in a working program. Further work on this pro- 
gram is not recommended at this time. 
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APPENDIX I 


10 T AAA LOAD ACCUMULATOR - LDA 


The contents of the Accumulator are replaced by the. 


contents of the effective address. 
effective address are not changed. 


The contents of the 
The Sign latch is set 


equal to the sign of the contents of effective address. 
The Overflow latch is not affected. 


EA = 
Example: 


Before execution: 


Accumulator 22272272? 
I/R 4 +000213 
Location 838 +991246 
Sign Latch ? 


AAA + contents of T (if T=0, EA=AAA) 


10 4 625 EA=625+213=838 


After execution: 


Accumulator +991246 
I/R 4 +000213 
Location 838 +991246 
Sign Latch Positive 


11 T AAA STORE ACCUMULATOR - STA 


The contents of the effective address are replaced 


by the contents of the Accumulator. 
Accumulator are not changed. 
to the contents of the Accumulator. 
'is not affected. 


The contents of the 
The Sign latch is set equal 
The Overflow latch 


EA = AAA + contents of T (if T=0, EA=AAA) 


Example: 110 001 EA=001 


Before execution: 


Accumulator -999999 
Location 001 ??7?7??7?? 
Sign Latch 2. 


After execution: 


Accumulator “999999 

Location 001 -9$9999 

Sign Latch Negative 
46 


40 T AAA LOAD INDEX REGISTER - LDX 


The contents of the specified Index Register T are 
replaced by the contents of the effective address AAA. 
The contents of the effective address are not affected. 
The Sign latch is set equal to the sign of the contents 
of the effective address. The Overflow latch is not 
affected. 


EA = AAA (Note: T cannot be 0; this instruction 
must specify an Index Register.) 


Example: 40 9 123 EA=123 


Before execution: After execution: 


I/R 9 22222??? I7R 9 -999995 
Location 123 -999995 Location 123 -999995 
Sign Latch ? Sign Latch Negative 


20 T AAA ADD TO ACCUMULATOR - ADD 


The contents of the effective address are algebraic- 
ally added to the contents of the Accumulator. The con~ 
tents of the effective address are not changed. The sign 
latch is set equal to the sign of the result in the Accumu- 
lator. The Overflow latch is set on if sum exceeds +999999 
or is less than -999999. When Overflow occurs, high-order 
digits are truncated. The Overflow latch is setOFF if 
overflow did not occur. 


EA = AAA + contents of T (if T=0, EA=AAA) 


Examples: Over- 
Accumulator Before EA Accumulator After flow Sign 
-999999 -000001 000000 ON 0 
-001001 +000001 -001000 OFF Neg. 
-999999 +999999 000000 OFF 0 
+010010 000000 +010010 OFF + 
+999999 +000001 000000 ON 0 
'+999999 +999999 +999998 ON + 
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21°T AAA SUBTRACT FROM ACCUMULATOR - SUB 


The contents of the effective address are algebraic- 
ally subtracted from the contents of the Accumulator. 
The contents of the effective address are not changed. 
The sign latch is set equal to the sign of the result in 
the Accumulator. The Overflow latch is set on if the 
result is greater than +999999 or less than -999999,. 
When overflow occurs, high-order digits are truncated. 
The Overflow latch is set off if overflow did not occur. 


EA = AAA + contents of T (if T=0, EA=AAA) 


Examples: Over- 
Accumulator Before EA Accunulator After flow Sign 
-999999 -999999 000000 OFF 
-999999 +000001 000000 ON 0 
+000001 +999000 .-998999 OFF Neg. 
+999998 +000001 +999997 OFF + 


+999999 “999999 +999998 ON + 


42 fT AAA ADD TO INDEX REGISTER - MDX 


The contents of the effective address AAA are algebra- 
ically added to the contents of the specified Index Reg- 
ister T. The contents of the effective address are not 
changed. The Sign latch is set equal to the sign of the 
result in the Index Register. The Overflow latch is set on 
if sum exceeds +999999 or is less than ~999999. When over- 
flow occurs, high-order digits are truncated. The Overflow 
latch is set off if overflow did not occur. 


EA = AAA (Note: T cannot be 0; this instruction must 
specify an Index Register.) 


Example: 42 5 002 


Before execution: After execution: 
I/R 5 -999999 TR/5 000000 
Location 002 -000001 Location 002 -000001 
Sign latch ? Sign latch 0 
Overflow latch ? Overflow latch ON 
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41 T AAA STORE INDEX REGISTER - STX 


The contents of the effective address AAA are re- 
placed by the contents of the specified Index Register T. 
The contents of Index Register T are not affected. The 
Sign latch is set equal to the sign of the contents of 


index Register T. 


EA = AAA (Note: 


The Overflow latch is not affected. 


T cannot be 0; this instruction 


must specify an Index Register.) 


41 1 402 EA=402 


Example: 

Before execution: 

T/R L 000000 
Location 402 2?2??2?? 
Sign Latch ? 


60 T AAA READ A CARD - IN 


After execution: 


T/R L 000000 
Location 402 000000 
Sign Latch 0 


Data is read in from a card and temporarily held in 


a buffer area. 
for validity. 


the current program is terminated. 
column must be a blank, plus sign, or minus sign. 


is treated as a plus sign. 


The data in the buffer is then checked 
If the first column contains an asterisk, 


If not, the first 
_ Blank 
Columns 2 through 7 must con- 


tain digits from 0 to 9 --- blanks are not allowed. 
Columns 8 - 80 may contain comments. 


If the validity checking does not detect an error, 
the data is loaded into the core location specified by 


the effective address. 


tents of the effective address are not altered. . 


If the data is invalid, the con- 


The Over- 


flow and Sign latches are not affected in any case. 


EA = AAA + contents of T {if T=0, EA=AAA) 


Example: 

Before execution: 

T/R l +000111 
Location 538 22722??? 


60 1 427 (data in card, +426351) EA=427+111=538 


After execution: 
I/R l +000111 
Location 538: +426351 
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61 T AAA WRITE - OUT 


The contents of the effective address is printed on 
the printer, and the paper is advanced one space. The 
Sign and Overflow latches are not affected. 


77 0 000 STOP - HLT 


Execution is terminated. The Sign and Overflow latches 
are not affected. Core is dumped onto the printer, ten 
locations per line for any line containing a word in which 
any change has been made in storage during execution. 


50 T AAA BRANCH (Unconditional) - B 

Control is transferred to the instruction at the 
effective address. The Sign and Overflow latches are not 
affected. 


EA = AAA + contents of T (if T=0, EA=AAA) 


Example: Core location Contents 
042 500862 
043 222222 
862 210044 


Execution of the Branch instruction at location 042 
will cause the next instruction executed to be the subtract 
instruction at location 862. 


51 T AAA) 6BRANCH NEGATIVE - BN 

This instruction causes a branch to the effective 
address if the Sign latch is Negative. If the Sign latch 
is not negative, control goes to the next sequential address. 
The sign and Overflow latches are not altered. 

EA = AAA + contents of T (if T=0, EA=AAA) 
52 T AAA BRANCH ZERO —- BZ 

This instruction causes a branch to the effective 
address if the Gign latch is zero. Otherwise, control 
goes to the next sequential address. The Sign and Over- 
flow latches are not altered. 


EA = AAA + contents of T (if T=0, EA=AAA) 
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53 T AAA BRANCH POSITIVE - BP 


This instruction causes a branch to the effective 
address if the Sign latch is positive. Otherwise, control 
goes to the next sequential address. The Sign and Over-~ 
flow latches are not altered. 


EA = AAA + contents of T (if T=0, EA=AAA) 
54 T AAA BRANCH OVERFLOW - B@ 

This instruction causes a branch to the effective 
address if the Overflow latch is ON. Otherwise, control 
goes to the next sequential address. If branch occurs, 
then the Overflow latch is reset to OFF.. The Sign latch 
is not affected. 


EA = AAA + contents of T (if T=0, EA=AAA) 


51 


danas ane eased beaten em 


1 FTE Tara se cient ae ee eee eg eee tne near ne et pee ty ner te RAI OT EOE SOE EY On oer et An RE ne 


@ 


ERIC 


APPENDIX II 


Problems 1, 3, 4, 5, and 6 are from the winter quarter 
1969. Problems 11, 12, 13, 14 are from the spring 
quarter 1969. o 


PROBLEM NC. 1 


Given: A set of 100 data cards containing values xX such 
that: 


i=l, 2, 3,...,100 
-999999<x,<+999999 


Write a machine ianguage problem beginning in location 0 
(zero) to solve the following equation: 
100 

xX xX. where 0<xX.<1000 
i=l + * 
i.e.; omit values of Xs outside of the above range from the 
sum. 


Be as efficient as possible. 

Write out the answer on the printer. 

Store your answer in location 900. 

Read the given input data into locations 500-599. 

Use index register(s) and conditional instruction(s). 
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PROBLEM NO. 3 


Given: A set of 100 data cards containing values X; such 


that: 


d=1y By Sy c0's LOO 
-999999<xX.<+999999 


Write a machi-2 language program beginning in location 0 
(zero) to solve the following equations: 


Sum 1 = 39 X; (Sum the contents of only the odd 


i=l numbered locations: i=1,3,5,...99) 
00 
Sum 2= 2 X; (Sum the contents of only the even 
i=2 numbered locations: i=2,4,6,...100Q) 


Write out both answers on the printer. 
Store the answers: Sum 1 in location 900 
Sum 2 in location 901 


Read the given input data into locations 500-599. 
Assume no overflow will occur. 

Use any instructions you think necessary. 

Be as efficient as possible. 


PROBLEM NO. 4 


Given: A set of 100 data cards containing values Xi such 


that: 


i=l, 2, 3,....100 
-999999<X.<+999999 


Write a machine language program beginning in location 0 
(Zero) to perform the following: 
(a) Find ANS. 1 = total number of negative items 
in the list © 
(b) Find ANS. 2 = total number of zero items in 
the list. 
(c) Find ANS. 3 = total number of positive items 
in the list. 
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Problem No. 4 (cont'd) 
Read the given data into locations 500-599 
Store the answers: Ans. 1 in loc 900 

Ans. 2 in loc 901 

Ans. 3 in loc 903 


Use any instructions you think necessary. 
Be as efficient as possible. 


PROBLEM NO. 5 


Given: Two sets of 50 data cards containing values 


X. 
+(  i=1, 2, 3,e+. 50 
Yi 
such that -5000<X,<+5000 


-5000<¥3<+50C0 


Find the sum of the differences (X;-¥,) by the following 
formula: 


50 

aie Y,) 
Read the first set of fifty cards into locations 500-549. 
Read the second set of fifty cards into locations 550-599. 
Write out the answer on the printer. 
Store the answer in location 900. 
Use any instructions you think necessary. 
Be as efficient as possible. 


PROBLEM NO. 6 


Determine and print the first N numbers of the "FIBBONACCI" 
series. In the “FIBBONACCI" series each number is the sum 
of the previous two numbers with the first two numbers of 
the series being 0 and l. 


Example of the "FIBBONACCI" series: 
O, 1, 1, 2, 3, 5, 8....(to N terms of the series) 


Read the value of N into location 500. Store the terms of 


the series starting in location 900. Print the terms of 
the series. 
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PROBLEM NO. 11 
Write a program which will evaluate 
f(x) = 3x*+2x+7 


for x an integer (0<x<100) to be read in from a data card. 
Test x after reading to make sure it is correct. Print 
out the value of x and f(x). Store f(x) in 900. If the 
value of x is out of the allowable range, print out the 
actual value of x, 000000 for f(x), and stop. 


PROBLEM NO. 12 


Write a program which will read (1) a card with the 
integer O<N<100. (2) N data cards into N successive loca~ 
tions, then sort the N numbers into ascending order and 
print them out. Read the data cards into locations 200ff 
and sort into locations 300ff. 


PROBLEM NO. 1.3 


Write a program to read in 25 numbers. These are to 
be stored in consecutive locations starting at 200. The 
numbers represent consecutive elements in consecutive rows 
of a matrix. Perform the transpose of the matrix so that 
rows and columns are interchanged. Print out the trans~ 
posed matrix. Store transpose in locations 300ff. 


PROBLEM NO. 14 
Given three sets of data cards of N<30 cards each: 
Read the first set of N cards into locations 100, 1063, 
106,... 


Read the second set of N cards into locations 101, 
104, 107,... 


Read the third set of N cards into locations 102, 105, 
108,... 


Print out in order locations 100, 102, etc. 


N is on first card. (A total of 3N+1 cards will be read.) 
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APPENDIX III 


This appendix contains summaries of the results of 
three surveys conducted after the automated problem sets 
had been used by several classes. 


First is the student response to a questionaire which 
followed the course. 


Second is the concensus of the instructor who taught 
the course. 


Third is observations of the IBM-1130 operator who 
actually accepted the students programs and batch processed 
them. 


—— 


Student Survey on Automated Problem Sets 


A questionnaire (Table I) was prepared to ascertain 
the effectivity of the automated problem sets from the 
standpoint of the students. This questionnaire and the 
summarized responses from 134 students are shown. The 
questions were designed to determine the extent of ease 
or difficulty which the new (to the students) concept of 
machine language was assimilated. Results were obtained 
after the student had subsequently been exposed to, and 
had written programs in, a compiler language, namely, 
FORTRAN. 


The final question requesting comments on improvement 
of the course elicited response from approximately fifty 
percent of the questionnaires. It opened a Pandoras box 
with a great diversity of opinions expressed. At the 
extremes, these ranged from the ideas that machine lan- 
guage was a complete waste of time and all programming 
training should be concentrated on FORTRAN to the desire 
to have the full quarter devoted to binary machine language 
with more emphasis on arithmetic and control unit organi- 
zation. Specific comments also dealt with insufficient 
demonstration on keypunch, need to have first programs ex- 
amined in detail by instructor before attempting to run, 
need for monitors to be better versed in the simulation 
language and in the problems assigned that quarter. A 
majority of the opinions expressed reflected the students' 
personal desires in results of such a course and in their 
success or frustrations in achieving these desires, 


The following numbered observations correspond to 
the questions of the same number shown in Table I. 


1. Less than two percent of the students had any prior 
experience with machine language. 


2. Eighty percent believed that the instruction set was 
about the right complexity with the rest equally 
divided between too simple and too complex. 


3. Responses were equally divided between those accepting 
the set as adequate and those desiring a multiply in- 
struction. The fact that a negligible number thought 
shifting should be included probably indicates that 
its use was not pointed out to the students. 


4. A negligible number of responses felt that the number 
of branch instructions was excessive and about a 
third wanted even more variations. 
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ll. 


20. 


Opinion was about 7-5 in favor of a less restrictive 
I/O set. 


Opinion was about equally divided for and against in- 
clusion of logical instructions. 


The decimal coding was almost universally accepted as 
suitable for grasping the essentials of machine lan- 
guage. A few dissidents identified a desire for binary. 


Less than twenty percent considered the brief study of 
machine language a waste of time for the ultimate user. 


All debugging aids provided proved helpful but the 
greatest aid was discussion with other students. 


Difficulties with getting ultimately successful runs 
were most impeded by the actual closed shop mechanism 
of the Computer Center (probably underqualified 
monitors, bugs still in the program, and general lack 
of understanding of procedures). Failure to under-~ 
stand the function of the simulated computer opera~ 
tions and errors in card punching were also substan- 
tial contributors. 


A large majority {over ninety-eight percent) considered 
the problem set reasonably difficult with the rest 
equally divided between too hard and too easy. 


Problem difficulty was rated roughly equal. 


The most difficult problems took three quarters of the 


) students less than four hours of homework and less than 


five computer runs. 


The easiest problem took three quarters of the students 
less than two hours of homework and less than three 
computer runs. 


Results of this question appear to belie the preceding 
two results. For if the program were indeed tested 
and ready for the run for record it should succeed on 
the first, or at worst, second run. The statistics 
indicate that many used four or more of these runs on 
their more difficult problem. 


A majority felt that there was a sufficient diversity 


in the problem set although several fel: the problems 
were too similar.: 
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| 21.{ Analysis, coding and debugging difficulty varied much 
22.5 between individuals and no one stood out as uniformly 
i particularly hard -er particularly easy. 


TO: 


FROM: 


TABLE I 
Students who took CS162 during Winter Term 1969 


D. R. Clutterham, Head of Mathematical Sciences Dept. 


We need to obtain some information regarding the use of 
the simulated computer used to teach machine language in the 


CSi62 course. Please complete the following questionnaire 
as accurately as possible and return to the Mathematical 
Sciences Department in person or by campus mail. If desired 


you may delete the portion above the double line to preserve 


anonymity. Please complete and return immediately. 


Underline answer which fits your case. 


1. 


2. 


o.. 
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Had you ever worked with machine language before? 
(a) yes (b) no 


The instruction set provided was 
(a) too complex, (b) about right, (c) too elementary 


The arithmetic instructions 
(a) were adequate, (b) should have included shifting, 
(c) should have included multiplication. 


The branch instruction set 
(a) was adequate, (b) could be improved with some 
additional types, (c) had too many alternatives. 


The input/output set of instructions was 
(a) too restrictive, (b) adequate, (c) should permit 
formatting 


Logic instructions should be included 
(a) no, (b) such as "AND", "OR", "COMPLEMENT." 


Greater understanding of machine language would have 
been obtained if numbers and codes had been 

(a) in octal, (b) in hexadecimal, (c) in binary, 

(a) the decimal used was adequate. 


The study of machine language 
(a) is a waste of time for an ultimate user 


(b) gave me a much better understanding of computers 
(c) contributed to my appreciation of FORTRAN 
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10. 
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12. 


13. 


14. 


15. 


16. 


17. 


18. 


19. 


20. 


The most helpful debugging aid was 

(a) the program trace, (b) the memory and status dump, 
(c) discussion with monitor, (d) discussion with 
classmates 


The greatest difficuity in completing a program 
successfully was 

(a) incomplete understanding of instructions 
{b} getting results from a run on the computer 
(c) punching an accurate set of cards 


The problem set to be solved 
(a) was adequate, (b) was too difficult, 
(c) was too easy 


The problem which was most difficult for me was 
(a) 1 (b) 2, (c) 3 (a) 4 (e) 5 


The problem which was most difficult for me required 
(a) less than Z hours of homework 

(b) two to 4 hours of homework 

(c) four to 16 hours of homework 

(a) over 10 hours of homework 


The problem which was most difficult for me required 
(a) less than 3 computer runs, (b) 3 to 5 computer runs 
(c) 6 to 9 computer runs, (d) more than 9 computer runs 


The problem which was easiest for me was 
(a) 1 (b) 2 (ce) 3 (da) 4 (e) 5 
(£f) don't remember 


The problem which was easiest for me required 

(a) less than 2 hours of homework, (b) 2 to 4 hours 
of homework, (c) 4 to 10 hours of homework 

(ad) over 10 hours of homework 


The problem which was easiest for me required 
(a) less than 3 computer runs, (b) 3 or 4 computer runs 
(c) 5 to 7 computer runs, (d) 8 or more computer runs 


My easiest problem ran correctly on my run for record 
number ; 
(a) l (b) 2 (c) 3 (d) 4 or greater 


My hardest problem ran correctly on my run for record 
number 
(a) 1 (b) 2 {c) 3 (ad) 4 or greater 


The problems in our problem set 
(a) were about right, (k) were too similar, 
(c) were too different 
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The part of these problems I found easiest was 
(a) analysis, (b) coding, (c) debugging 


The part of these problems I found hardest was 
(a) analysis, (b) coding, (c) debugging 


Include any comments for improving this part of the 
course. 
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Survey of Instructors Using the Automated Problem Sets 


Seven instructors have been introduced to the auto- 
mated problem sets and five Nave taught the introductory 
computer course at Florida Institute of Temhnology using 
the sets. Their observations are summarized here. 


When a class is given a common problem, there is a 
tendency to either copy the solution of one of the better 
students or to work collectively on a program so that the 
net result is several groups of identical solutions. 


_ This problem is not pecuiiar to this course or even this 


subject, but usually students vary their own solutions 
from the one they copy and this is not-.done with the auto- 
mated problem sets. One solution may be to have the 
students turn in their handwritten coding sheet before 
they begin their actual machine debuoging; then their 
final programs should be modifications to the handwritten 
ones. Another solution is to develop a very large set of 
similar problems so that students have essentially an 
individual problem. 


The instruction code set seems generally suitable to 
the instructors. More experienced instructors found the 
set quite suitable or else desired only a shift operation. 
Newly indoctrinated instructors desired a multiply and 
perhaps also a divide instruction. Somewhat more capabil- 
ity in the input-output format appears desirable, although 
exactly what form it should take was not agreed upon. A 
set of left and right shifts with and without a4 circular 
capability have been designed for the program but are not 
now incorporated. 


‘One anticipated problem - that of teaching the use of 
the keypunch in classroom - has not arisen; learning the 
use of the keypunch seems to be passed very readily between 
the students, and a minimum of words from the instructor 
is sufficient. 
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Survey of Machine Operators Using the Simulator 


An initial complaint of the operators was that in- 
structors did not sufficiently define the problem to the 
students and further definition had to be supplied in 
detail. This is recognized as a continuing problem and 
the instructors are putting more care and detail into 
the definition. 


A second difficulty is that assignments are relative- 
ly few, but everyone's problem comes due at the same time. 
Even if the assignments are given well in advance, normal 
student procrastination causes a heavy run on both the 
card punching equipment and on the computer in the last 
couple of days before a grading run is due. A solution 
to this problem, as yet untried, is to stager problem due 
dates giving easier problems to the students whose problems 
are due first. In addition to this, simpler problems could 
be given much earlier in the quarter so that the students 
can first learn some of the mechanics of preparing a 
problem for the machine and getting basic input-output 
mastered. 
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// $08 STRTGOOL 
* 


tf : : STRTGOO2 
{/ *PROGRAM TG REAO IN DATA FILE,INITIALIZE AND START SIMULATICN STRTGCO3 
‘/ * OF A DECK GF SIM610 PROGRAMS. STRTGCO4 
h * STRTGCOS 
7/7 FOR STRTGGO6 
#NAME STRTG STRTGCO7? 
#LOCS(CARD,DISK,1403 PRINTER) STRTGCOS8 
*EXTENDED PRECISION STRTGOO9 
*LIST SQURCE PROGRAM STRTGOLO 
*ONE WORD INTEGERS STRTGC11 
*LIST SUBPROGRAM NAMES STRTGOL2 
*LIST SYMBOL TABLE STRTGOL3 
INTEGER A(2205) 9 II!4UT( 160) yNREM(77) OATA(212) »PRSET(15) STRTGO1L4 
INTEGER TABLE(16) STRTGO15 
INTEGER ERRyEA STRTGC1L6 
INTEGER NATA1L(106} sOATA2(106) STRTGOL7? 
COMMON AyINPUT»sNREM,OATA,PRSET STRTGOL8 
EQUIVALENCE (NPROSBA(2140)),(TABLE(1),A(2116)) STRTGC19 
EQUIVALENCE (INIT,»A(2138)) STRTGO20 
EQUIVALENCE (EA,4(2025)),(ERRZA(2109)) STRTGO21 
EQUIVALENCE (DATAL(1),DATA(1))»(OATA2(1) »DATA(107)) STRTGO22 
EQUIVALENCE (LOC11,A(1))9(LOC12,A(1001)) STRTGO23 
EQUIVALENCE (NI9A(2114))9(NC,A(2115)) STRTGO24 
DEFINE FILE 5(12,106¢U,NXROC) STRTGO25 

1 NI=2 STRTGO26 
NO=5 STRTGC27 
READ(NI,11) TABLE,NOTSTyINIT»PRSET STRTGO28 

ll FORMAT(L6OAlsI1LylXel1l91X,1512) : STRTGO29 
IFCINIT-1) 10,12,10 STRTGO30 

10 INIT = -1 STRTGO31 
Go TO 13 STRTGO32 

12 INIT = 0 STRTGO33 
13 IF(NOTST) 16916914 STRTGO34 
14 IF(NOTST-6) 15715916 STRTGO35 
15 READ(5"2*NOTST-1) DATA STRTGO36 
Go 10 19 STRTGO37 

16 EA=1 ‘ STRTGC38 
. 00 4 1=1,106 STRTGO39 
CALL ROR6O STRTGO40 
DATAL(I)=LOCL1 STRTGO41 
DATA2(1I)=LOC12 STRTGO42 
IF(ERR) 39293 STRTGO43 

a PAUSE 7009 STRTGO44 
IleIt-1 STRTGO45 

2 LOCL2 = IABS{LOC12) STRTGS46 
4 WRITE(NO,A7) LCC11,LOCL2 STRTGO47 
17 FORMAT(1H »14,13) STRTGO48 
19 CALL ROR6O STRTGO49 
CALL LINK(LGAOP) STRTGOS5O 

END STRTGO51 

7/7 OUP STRTGOS2 
*DELETE STRTG STRTGO53 
*STORECI WS UA STRTG OOO1 STRTGO54 
*FILES (5,SIMDT) STRTGOS55 
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// 308 

“/ * 

/i) * PROGRAM 

// * BRING IN 

4; * 

// OUP 

*DELETE 

// FOR 

¥NAME LOAOP 

*LIST SOURCE 

*LIST SUBPROG 

*LIST SYMBOL 

*IOCS(CARD,DOI 

*EXTENDEO PRE 

*ONE WORD INT 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
COMMON 
COMMON 
COMMON 
COMKON 
COMMON 
COMMON 
COMMON 
CGMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
EQUIVAL 
EQUIVAL 
EQUIVAL 
EQUIVAL 
EQUIVAL 
EQUIVAL 
EQUIVAL 
OEF INE 

Cs-<s<= TEST F 

1 TFLERRO 
2 IFU(IOBU 
10 €A=1 

CALL RO 
GO TO 1 

C-~--~~ SKIP T 


TO LOAD EACH STUDENT-PROGRAP INTO PSEUOC CORE, AND 
THE FELE OF STANDARO DATA CN THE PRGBLEM FOR GRADING. 


LOAOP 


PROGRAM 
RAM NAMES 
TABLE 
SK,1403 PRINTER) 
CISION 
EGERS 
ERRS 
ERROR 
LOC (2000) sXR(18),AREG(2) sTAGe ADDR, EA rOPCOLD+NEUMG (2) 
LOBUF (48) »NAME(32),ERRCT(5) 
TABLE(16) 
RNTEM(2),PROGL 
LOCL(1000) pLOC2(1000) »XRL(9) eXRZ(9) 
NSAVL(30),NSAV2{(30) 
STORT,sSTOPL 
ANS1(30).ANS2 (30) sNANS yLCANS(5),NANSR(5) 
NRDSR(10},LO0CRO(10) 
PTSR»PTSAsPTSWePTS 
FOATAsPCSPT(3) 
PTCR( LO) »PTCRNyPTCA( 10) ¢PTCC( 10} sPTCO,PTCW{ 10) »PTHO 
PCGRT,PCGPL 
RDATA(14) 
FILND,PCyLINE( 70) »DATA(212) »DATAL(106) »DATA2( 106) 
LOC» XR» AREGyISIGNy INSTR» TAG, ADDR 5 EAs OPCOL yNEUMO, [OBUF pNAME 
ERRCT 
NI,ND,TABLE,JERR 
IpJyKyboM 
INIT 
NSTUD,NPROB 
RNTIM,PROGL »NOCOS 
NANSWyNSAV1LsNSAV2 
IDUMY,STORT»STOPLsANS1 »ANS2+NORDSsNRGPS+POSPT 
NROSR,LOCRD,LCANS »NANSRyPTCR gPTCAyPTCCyPTCW,»PTCRNePTCO 
PTWO »NANS »FOATA, MAXRT»PCGRT + PCGPLeROATA 
PTSRePTSAsPTSWyPTS 
FILNGsPC,fQVFLyLINE, DATA 
ENCE (LOC(1),LOC1(1)),(LOC(1001),L0C2(1)) 
ENCE (XRO1)—XRL(1))e(XR(10),XRZ20103 
ENCE (POSPT(L)sNPPTR),(POSPT(2),NPPTA) » (POSPT(3) »NPPTW) 
ENCE (Ni+NDCOS) » (NWTRsNANSH) 
ENCE (DATAL(1),DATA(1))¢ (OATA2(1) »DATA(107)) 
ENCE {(LOCL1+LOC1(1)),(LQC12, Loc2(1)} 
ENCE (ERRCT(L) ERROR? 
FILE 1(24,160,U,NXREC) 
OR MONITOR CARO 
R) 2,10,10 
F(2)~TABLE(1)) 10,20,10 
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O NEW PAGE, PRINT MONETOR CARDO 


20 WRITE(ND+22) EOBUF 


22 FORMAT( 


OO 27 f= 


OO 26 J 


1H1,16A1,32A29//) 
2515 
=1;,10 


a7 
ood 


LoAoPool 
LOADPOO2 
LOADPOO3 
LOADPOO4 
LOADPOOS 
LOADPCO6 
LGADPCD7 
LOADPOGS. 
LOADPOGS 
LOAOPO1O 
LoAgPol1 
LOADPO12 
LOAOPOL3 
LOADPOL4 
LOADPOLS 
LOADPO1é 
LOADPO17 
LOADPO1a 
LOADPO19 
LoADPO20 
LOADPO21 
LOAnPo22 
LoADPO23 
LOADPO24 
LOADPO25 
LOADPO26 
LOADPO27 
LOADPO28 
LOADPO29 
LoAoPa30 
LOAOPO31 
LOADPO32 
LOADPO33 
LOADPO34 
LOADPO35 
LOADP036 
LOADPO37 
LOADPO38 
LOADPO39° 
LOADPO4O 
LOAOPO41 
LOADPO42 
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LOADP044 
LOADPO4S5S 
LOADPOAE 
LCAOPO047 
LOADPO4S 
LOAOPO49 
LOADPO50 
LOAOPOSL 
LOAOPCS2 
LOADPO53 
LOADPO54 
LOAOPO55 
LOAGPG56 
LOADPO57 
LOADPO58 
LOADPO59 
LOADPO60 
LOAOPO61 
LOADPOS2 
LOADPO63 
LOADPO64 


IFC IOBUF(II-TABLE(J}) 26927526 LCADPO65 


26 CONTINUE LDADP066 
C---ERROR IOBUF(I) SET TO ZERD. LDADP067 
J=l LOAGPOEB 
27 IOB IF (I) = J-1 LDADPC69 
Co------ TEST FOR MONITOR START CARO LOADPO70 
Cc NCARD = ((( (1OBUF(2)*104+10BUF (3) )*#10+IOBUF (4) )*10+IOBUF(5))*10+ LOADPO71 
Cc LIOBUF (6) )*10+IOBUF(7) LOADPOT72 
NCARD = (( ITOBUF(4)*104+10BUF(5))*10+I1OBUF(6) )*1LO+ICBUF(7) LOADPO73 
Cc NO LIST OF SOURCE PROGRAM IF NCARD EQUALS ZERO. LOADPCT4 
IF(NCARD-1) 28929,10 LOACPO75 
28 NCARD = 2 LOADPO76 
29 NOCDS = 1 LOADPOT77 
NSTUD = (((1OBUF(9)*10+I0BUF (10) )#10+IOBUF(11))#*#10+#IOBUF(12))*10+ILOADP078 
1LOBUF (13) LOADPO79 
NPROB = 1O*IOBUF(14) + IOBUF(15} LOADPO8O 
DO 45 I=1,32 LOADPO81 
45 NAME(I) = TOBUF(I+16) LOADPO82 
Cc LOADPO83 
(oo nnn 5-5-5 +--+ + LDADP084 
C ROUTINE TO LOAD STUDENT PROGRAM INTO 1000 WORD PSUEDO-CORE. LOADPO85 
Cc A LISTING IS.PRINTED OF ALL NON-MONI‘TOR CARDS. LOADP086 
Cc MONITOR CARDS ARE IDENTIFIED BY AN ASTERISK IN COLUMN le LOADPO87 
Cc ROUTINE RETURNS ON REAOING A MONITOR CARO, OR WHEN CORE LOAC LOADPOS8 
Cc EXCEEDS PSUEDO-CORE. LOADPO89 
Cc ON RETURN--IAR CONTAINS COUNT OF CCRE LCCATIONS USEC. LOADPOSO 
Cc IQBUF CONTAINS LAST RECGRD READ. LCADPO91 
Cc ERRS CGNTAINS COUNT OF ERROR FLAGS. LOADPO92 
Cc ERRORS ARE FLAGGED WITH AN ASTERISK ON LISTING. LOACPO93 
Cc ERRGRS ARE ALWAYS LISTED. LOADPOS4 
Cc LOADING STARTS IN CORE LOCATION ZERO. LOACPO95 
c LOACPO96 
c CLEAR PSUEDO-CORE. LOADPO97 
AREG(1)=20000 LOADPO98 
AREG(2)=200C0 LOADPO099 
DO 3 IAR=1,18 LOADP1O0O 
3 XRC(IAR) = 25000 LOAGP101 
DO i106 IAR=1,2000 LCADP102 
106 LOC(IAR)=30000 LOADP103 
c INITIALIZE IAR AND ERRS. LOADP104 
TAR=0 | LOADP105 
ERRS=0 LOADP106 
110 EA = JAR + 1 LOADP107 
CALL ROR6O LOAOP108 
IF(ERROR) 1205140,130 LOADP109 
130 ERRS=ERRS#1 LOADP1I1C 
c PUT ASTERISK IN ERROR FLAG. LOADP111 
ERROR=TABLE(15) LOADP112 
GO TO 150 LOADP113 
: c BLANK OUT ERROR FLAG LOAOP114 
i 140 ERROR=TABLE(12) LOADP115 
: c NO LIST OF SOURCE PROGRAM IF NCARD EQUALS TKU LOADP116 
GO T0(150,160)yNCARO LOADP2217 
\ 150 WRITE(NO,51) ERROR» TAR, LOBUF LOACP118 
i S51 FORMATCLH 9Al91X91494X9 7A1l94X99Al93ZA2) LOADP119 
160 IAR=ZAR+1 LDADP120 
c TEST FOR END OF PSUEDO-CORE. LGADP121 
i IF(ITAR-999) 110,110,120 LOADP122 
{ C~--~-% CARD OR ENO OF CORE ENCOUNTEREO LOADP123 
120 WRITE(NO,51) TABLE(12), TAR, IOBUF LCADP124 
PROGL2IAR LOACP125 
: ERROR = 0 LOACP126 
| Cc LGACP127 
| C----- ABORT IF MISPUNCHED CARO IN DECK. LOADP 128 
LF(ERRS) 30,30,10 Loace129 
| 30 IF(IOBUF(3)-TABLE(1)) 31.2+31 LCADP 136 
| 
{. 
{- 
i 
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o_ 
ERIC 


| // JOB 
// * 
// * PROGRAM 
_— // * BRING IN 
// * 
1, 77 OUP 
*OELETE 
. // FOR 
*NAME LOAOP 
i *LIST SOURCE 
: *LIST SUBPROG 
*LIST SYMBOL 
- *IOCS(CARO,O1 
*EXTENOEO PRE 
#0NE WORO INT 
INTEGER 
7 INTEGER 
| INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
. INTEGER 
iNTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMNON 
COMMON 
COMMON 
; COMMON 
| COMMON 
EQUIVAL 
oe EQUIVAL 
EQUIVAL 
[ EQUIVAL 


| 
ee | 


EQUIVAL 
EQUIVAL 


TO LOAO EACH STUDENT: PROGRAM INTO PSEUDO CORE, AND 
THE FILE OF STANDARO OATA ON THE PRCBLEM FOR GRADING. 


uCAOP 


PROGRAM 
RAM NAMES 
TABLE 
SKy1403 PRINTER) 
CISION 
EGERS 
ERRS 
ERROR 
LOC (2000) »XR(18) sAREG(2) » TAG, ADDR, EA,OPCOC,NEUNG( 2) 
LOBUF (4B) »NAME (32) ,ERRCT(5) : 
TABLE (16) 
RNTIM(2),PROGL 
LOC1(1000) ,LOC2 (1000) »xR1(9) +XR2(9) 
NSAV1(30) sNSAV2 (30) 
STORT,STOPL 
ANS1(30)2ANS2(30) eNANS LCANS (5) »NANSR(53 
NROSR(10) »LOCRO(10) 
PTSR»PTSAsPTSWsPTS 
FOATAsPOSPT(3) 
PTCR(10) yPTCRNyPTCA(10) »PTCC(10) PTCO,PTCW( 10) »PTRO 
PCGRT,PCGPL 
ROATA(14) 
FILNO,PCyLINE( 7G) pOATA(212) sOATAL( 106) ,0ATA2( 106) 
LOC, XRyAREG sy ISIGNs INSTR» TAG, ADDR, EA, OP COC »NEUMD, LOBUF pNAME 
ERRCT 
NINO, TABLE, JERR 
TyteK ob yM 
INIT 
NSTUO,NPROB 
RNTIM»PROGL,NOCOS 
NANSWsNSAV1,NSAV2 
IDUMY » STORT,sSTOPL »ANS1,ANS2sNOROS »NRGPS» POSPT 
NROSR yLOCRO,LCANS»NANSRyPTCRyPTCAyPTCCePTCWyPTCRN»PTCO 
PTWOsNANS » FOATA » MAXRT »PCGRT »PCGPL»ROATA 
PTSRePTSAsPTSWePTS 
FILNOsPCyTIOVFLsLINE,OATA 
ENCE (LOC(1),LOC1(1))»(LOC(1001),LOC2(1)) 
ENCE (XR(1),XR1(1))_(XR(10) ,XR261)) ; 
ENCE (POSPT(1),NPPTR)» (POSPT(2) sNPPTAIs (POSPT(3)yNPPTH? 
ENCE (N1,NOCOS)» (NWTR»NANSW) 
ENCE iQATAL(1),OATA(1)) » (OATA2Z(1) »OATA(107)) 
ENCE (LOCL1»LOCL(1)), (Loci2,Loc2(1)) 


EQUIVALENCE (ERRCT(L) ERROR) 
~ OEFINE FILE 1(24,160,U,NXREC) 
 ; C==<=<---= TEST FOR MONITOR CARO 
+i 1 IFCERROR) 2,10,10 
25 2 IF(LOBUF(2)-TABLE(1)} 10,20,10 

10 EA=1 
CALL ROR6O 
GO TO 1 
C--~--- SKIP- TO NEW PAGE, PRINT NONITOR CARO 


20 WRITE(NOs22) IOBUF 


22 FORMAT ( 
00 27 1 


. 
in 
H 
t 


1H1_-16A1l,32A2s//) 
=2,15 


OO 26 J=1,16 
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LoaopPool 
Loaopoo2 
LOAODPOO3 
LOADPOO4 
LOAoPOOS 
LOoAoPO06 
LOAOPOO7 
Loaopoos 
LoaoPoo9 
LoaoPo10 
LOADPO11 
LoAoeo12 
LoaoPo13 
LOAOPO14 
LoAoPo1s 
LOAOPO16 
LOAOPO17 
LoAoPo18 
LOADPO19 
Loaopo20 
Loaopo21 
LOAopO22 
Loaopo23 
LOAOPO24 
Loaopo25: 
LoAoP026 
LoAoPpo27 
Loaopoz8 
LoAoP029 
Loaopo30 
LOAOPO31, 
LoaoPo32 
LoAoPo33 
LOADPO34 
LoAoPO35 
LOAODPO36 
LOA0PO37 
Loaopo38 
LOAOPO39° 
Loaopo4o 
LOADPO41 
LOADPO42 
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LOADP044 
LOAOPO45 
LOAOPO46 
LOAOPO47 
LOAoPO48 
LoAoP049 
LoapPos0 
LOAoPOS1 
LoAoPO52 
LOoAoPO53 
LOAOPO54 
LOAoPO55 
LOAOPO56 
LOAOPO57 
Loaopose 
LOAgPO59 
LoaoPo6o 
LOAODPOd1 
LOAoPO62 
LOAOPO63 
LOADP064 


26 
C---ER 


27 


1 


28 
29 


1 


aagagaanananaaannaanna 


IFULOBUF(E)-TABLE(J)) 26527526 
CONTINUE 

ROR IOBUF(I) SET TO ZERO. 

Jz 1 

IOBUF(IT) = J-1 

-TEST FOR MONITOR START CARD 


NCARD = ((( (I1OBUF(2)*10+IOBUF(3))*10+IOBUF (4) )*10+IOBUF(5))*10+ 


IOBUF (6) )*10+IOBUF(7) 


NCARD = ((IOBUF(4)*10+4+I0BUF (5) )*10+IOBUF(6))*10+ICBUF(7) 
NO LIST OF SOURCE PROGRAM IF NCARD EQUALS ZERO. 


IF(NCARD-1) 28,29,10 
NCARO 2 2 
NOCDS = 1 


LOACPO65 
LOADPO66 
LOADPO67 
LOADPO068 
LOADPC69 
LCADPO7O 
LOADPO71L 
LOADPO72 
LOADPO73 
LOADPC74 
LOACPO7S5S 
LOAOPO76 
LOADPC77 


NSTUD 2 pESROR EP One ERPS RSH E Saat g Oe SCE UE LAD e roe pent nee greens ENO IS 


OBUF(13) 

NPROB = 10*IQOBUF(14) + IOBUF(15) 
OO 45 [21,32 

NAME(I) = (OBUF(I+16) 


Kee eww eww et ewww ow hw ewe ee ewww wwe eww www www we Ww we wwe we we ewn wo ow we ww ow oo eee 


ROUTINE TO LOAD STUDENT PROGRAM INTO 1000 WORD PSUEDO-CORE. 


A LISTING IS PRINTED OF ALL NON-MONITOR CARDS. 


MONITOR CARDS ARE IDENTIFIED BY AN ASTERISK IN COLUMN le 
RDUTINE RETURNS ON READING A MONITOR CARCy CR WHEN CORE LOAC 


EXCEEDS PSUEOO-CORE. 


ON RETURN--IAR CONTAINS COUNT OF CCRE LCCATIONS USEC. 


TOBUF CONTAINS LAST RECORD READ. 
ERRS CONTAINS COUNT OF ERROR FLAGS. 


ERRORS ARE FLAGGED WITH AN ASTERISK ON LISTING. 


ERRGRS ARE ALWAYS LISTED. 
LOADING STARTS IN CORE LOCATION ZERO. 


CLEAR PSUEDO-CORE. 
AREG(1) 220000 
AREG(2)=20000 

OO 3 IAR=1,18 

XR(IAR) = 25000 

OO 106 IAR=1,2000 
LOC(IAR)#30000 
ENITIALIZE TAR AND ERRS. 


“TAR20 


110 


130 


ERRS=0 
EA = IAR + 1 

CALL ROR6O . 

IF(ERROR) 120,140,130 

ERRS#ERRS+1 

PuT ASTERISK IN ERROR FLAG. 

ERROR=TABLE (15) 

GO TO 150 

BLANK OUT ERROR FLAG 

ERROR=TABLE (12) 

NO LIST OF SOURCE PROGRAM IF NCARD EQUALS TkO 
GD TO(150,160) »NCARD 

WRITE(NO,51) ERROR,»I AR, IOBUF 

FORMAT(LH yAl_1X91424Xp—7Al94Xp9ALy32A2) 
TAR=1AR41 

TEST FOR ENO OF PSUEDO-CORE. 
IF(IAR-999} 110,110,120 

* CARD OR ENO OF CORE ENCOUNTERED 
WRITE(NG,51L) TABLE(12),1AR, LOBUF 
PROGL=IAR 

ERROR = 0 


ABORT XF MIESPUNCHED CARD IN CECK. 


IF(ERRS) 30,30,10 
IF (LOBUF(3)-TABLE(1)) 31.2.31 
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LOAcPO79 
LoAoPoso 
LOADPO81 
LoADPO82 
LOADP083 
LOADP084 
LOADPO85 
LOACPO86 
LOADP087 
LOADPOBS 
Loaopcss 
LoADPGsO 
LOADPO91 
Loaopo92 
Loaceo93 
LoADPO94 
LOADPO9S 
LoADPO96 
LOADPO97 
LOADPO98 
LoADPO99 
LoADP 100 
LOADP191 
LoAce102 
LGADY103 
LOADP104 
LOADP105 
LOADP106 
LOADP107 
Loaor10e 
LOADP109 
LoADP11c 
LOADP111 
LoapPil2 
LOADP113 
LOADP 114 
LOADP115 
LOADP116 
LOADP117 
LOACP118 
LOADP 119 
LoADP120 
LOADP121 
LOADP122 
LOADP123 | 
LOACP124 
LOAcP125 
LOACP126 
LOADP127 
LoaoP128 
LCACP129 
LCADP13¢ 


; 
t 


Cc SKIP TO NEw PAGE IF LISTING MACE. 
3L GO TC(32.35),NCARG 
32 WRITE(NC,33) 
33 FORMAT(1H1) 
REAC(L'FILNO) ICUMY,STORT,STDPL»+ANSL»ANS2,NCROS,NRGPS,PCSPT, 
lL NROSR,»LOCRD LOANS, NANSR»PTCR»PTCA,PTCC,»PTCK,PTCRN,PITCO, 
2 PTwCrNANSsFOATA,MAXRT» PCGRT,PCGPL{ »RDATA} 
35 CALL RDSTO 
SIMULATE RUN} 
CALL SIMRN 
DUMP GRACING INFCRMATION. 
CALL LINK {OUMPG} 
END 
// DUP 
*STORECI WS UA LOADP 0002 
*LOCAL,ROR6C,CWADC, DECEB 
*FILES(1,FSTOG) 


a a aaa 
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LCACPL31 
LCALPL32 
LCAGP133 
LCACP1L34 
LCACPL35 
LOACP136 
LCACPL37 
LCACP138 
LCACP139 
LCACPLAC 
LCACP L4l 
LGACP142 
LCACP143 
LGACP144 
LCACP145 
LCACP1L46 
LCACP147 


// JOB 
// * 


// * IN PSELD 
// * 

// FOR 

*LIST ALL 


*EXTENDED PRECISION 


*ONE WORD INT 
SUBROUT 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
“INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
EQUIVAL 
EQUIVAL 
EQUIVAL 

Cc PUT INT 
EQUIVAL 

CKKBUF(1 
CNNBUF(1L 
EQUIVAL 
Ly» (LINE( 
EQUIVAL 
EQUI VAL 
EQUIVAL 
EQUI VAL 
EQUIVAL 
EQUIVAL 


SIMRNCC1L 


SIMRNCC2 

7/ *ROUTINE WHICH ACTUALLY SIMULATES EXECUTION CF THE PROGRAM SIMRNCO3 
O-CORE. SIMRNCO4 
SIMRNCCS 

SIMRNCO6 

SIMRNCOT 

SIMRNCOS 

EGERS SIMRNOOS 
INE SIMRN SIMRNCLG 
TCNTR SIMRNC1L 
SHFTC+CARRY,CARY2 SIMRNC12 
OPTSL (44) ,NUTBL (44) SIMRNCGL3 
AREG1,AREG2 SIMRNC14 
MREG(2) SIMRNC1S 
CXR(2),CXR1,CXR2 : SIMRNOL6 
NXREG(2),CEAR(2Z) + NNREG(2) SIMRNCLT 
JIBUF(7)+JJBUF(7) »KKBUF(7),LLBUF(7) »MMBLF (7) »NNBUF(7) SIMRNGL8 
CEAR1,CEAR2 SIMRNOLS 
LOC(2G0C0),XR(1L8),AREG(2),TAG,ACOR,EA,OPCOC yNEUMC (2) SIMRNC2C 
INMBUF(80),ERRCT(5) SIMRNC21 
TABLE (16) SIMRNC22 
RNTIM(2),PROGL SIMRNC23 
LOCL( 1000) ,L0C2(1000),XR1(9),XR2(9) SIMRNG24 
NSAVL(30) sNSAV2 (30) SIMRNO25 
STORT,»STOPL SIMRNC26 
ANS1(3C),ANS2(30)»NANS»LCANS (5) ,NANSR(5) SIMRNC27 
NRDSR(10),LCCRDO(10) SIMRNC28 
PTCR(10) »PTCRNyPTCA(1O) »PTCC(10),PTCC,PTCW(10),PTWO SIMRNC29 
FDATA,PCSPT(3) SIMRNC30 
PCGRT,PCGPL SIMRNC3L 
RDATA(1L4) SIMRNO32 
PTSRyPTSAsPTSWsePTS SIMRNC33 
FILNO,PCyLINE(7C)»CATA(212),DATAL(1C6) pCATA2( 106) SIMRNC34 
LOC,XR»AREGsISIGNy INSTR» TAG, ACCOR, EA, GPCOC,NEUMC, LOBUFyERRCTSIMRNC35 
NI,»NO,TABLE,JERR SIMRNC36 
[pJeKyb eM SIMRNO37 
INIT SIMRNC38 
NSTUD »NPROB SIMRNC3S 
RNTIM,PRGGL,NOCDS SIMRNG4O 
NANSWrNSAVL »NSAV2 SIMRNC41 
IDUMY ¢ STORT+STOPL r ANS sANS2,sNCROS,NRGPS » PCSPT SIMRNC42 
NROSRyLOCRDyLCANS sNANSRyPTCRyPTCA,PTCC,PTChyPTCRN»PTCO STMRNC43 
PTWO,NANSsFDATAsMAXRTyPCGRT,PCGPLyREATA SIMRNO44 
PTSR»PTSA,PTSWePTS SIMRNO45 
FILNO,PC,LOVFL»LINE CATA STMRNG46 
ENCE (LOC(1),LOCL(1L)),(LCC(LOOL),LGC2(1)) SIMRNC47 
ENCE (XR(1L),XRL(1))9(XR(10),XR2(1)) STMRNO48 
ENCE (POSPT(1)yNPPTR),(PCSPT(2)yNPPTA) » {PCSPT(3),NPPTn) SIMRNC49 
EGERS USED ONLY HERE IN LINE 70 SAVE CORE. SIMRNC5O 
ENCE (LINEC(L) » TIBUF(L) Ds (LEINE(S)sJIBUF(LI)»(LINECL5),» SIMRNCS1L 
Y)_e(LINE(22),LLBUF(1)),(LINE(29) »MMBUF(1)),(LINE( 36), SIMRNCG52 
d),4NXREGO1) yNXRGL)» (NXREG(2) sNXRG2) SIMRNC53 
ENCE (LINE(43)eCXR(1L)),(LINE(45) »MREG(1)) SIMRNC54 
47) sNXREG(L)), (LINE (49) ,CEAR(1)),(LINE(51),NNREG(1)) STMRNOSS 
ENCE (LINE(53),TCNTR),(LINE(54),SHFTC) SIMRNG56 
ENCE (LINE(55),CARRY),(LINE(56) »CARY2) SIMRNC57 
ENCE (LINE(57)sMSW )-(LINE(58),LCTR2) SIMRNC58 
ENCE (LINE(59),IAR )y(LINE(60),ITFLAG) SIMRNO59 
ENCE (CEAR(1},CEARL),(CEAR(2) »CEAR2) SIMRNO6O 
ENCE (CXR(1),CXRL)» (CXR(2),CXR2) SIMRNO6L 
- EQUIVALENCE (MREGL,»MREG(1)),(MREG2,MREG(2)) SIMRNC62 
EQUIVALENCE (AREG(1),AREGL), (AREG(2),AREG2) SIMRNGE.3 
EQUIVALENCE (DATA1(1L),DATA(1})+5(DATA2(1)sCATA(107)} SIMRNC64 


AANAANAABRAAAANDA 


aaaAna oO 


ae 


1 


1000 


EQUIVALENCE (NWTR,NANSW) 


SIMRNC65 


DATA OPTBL/011010911,012020 1214073010531 109321023391 240, 1p 4d yl e42ySIMRNOGE 


09501095110 4524015390 4542026070r61 90 e77s-1,100/ 
DATA NUTBL/#LD',tA %, *ST',tA ty "AC, *€ *, *SU',tB ty 
tSLt, tA ty "SREetA *, *RLE,tA ty, *RRIZTA ty 
"LOts*X ", "STte*X &, *MO*,*X *, *B t,t ', 
tBNt,t &, *BZt,t t, tBPtyt ot, tBCeyt ty 
"IN's* &,- *OUtst'T &, tHE tT ty" Utyt ty 


JERR RETURNS «oe 
=1 SUCCESSFUL EXECUTION 
=2 INVALIC INSTRUCTION CAUSED ABCRT 
=3 TIME EXHAUSTED CAUSED ABORT 
=4 MONITOR CARD REAC BY PROGRAM. CARD IS IN ICBUF 


INITIALIZE SIMULATOR. 
PC = 0 
TCNTR=0 
MSW=2 
RNTIM(1 
RNTIM(2 
JERR=0 
ISIGN=0 
IOVFL=C 
NOCOS = 0 
NWTR=O0 
LCTR = 0 


s=0 
»=0 


BUMP IAR 
TAR = PCt+) 


C=----LOAD C( PC) INTG MREG. 


AANANAAANAAAAAANANAAAAAN 


R 


——a—— 


MREG1=LOCLITAR) | 
MREG2=LOC2( TAR) 


RNTIM(2)=RNTIM(2) +1 


STATICIZE INSTRUCTION INTS CPCOC,TAG,ADCR 

THIS ROUTINE STATICIZES A PSEUDC-MACHINE INSTRUCTION 
GONTAINED IN THE DOUBLE=-WORC REGISTER REG. 

EXAMPLES cee 


EG(1) REG(2) INSTR TAG ACCOR 
315 208 31 5 208 
403 772 40 3 772 
315 ~208 “31 5 208 


OPCGD = MREG1/10 
TAG = MREG1-OPCOD*10 
ADDR = MREG2 


COMPUTE INSTR,EA 

THIS ROUTINE CONVERTS A PSEUCC-LANGUAGE OP-CCDE IN CpCCC INTC 

AN INTEGER FOR USE IN A CCMPUTEC GO TO STATEMENT FOR 

INSTRUCTION SIMULATION. THE EFFECTIVE ACCRESS IS ALSG CCMPUTEC. 
THE INSTRUCTION MNEUMONIC IS RETURNED IN NEUMG AS 2A2. 


CONVERSION REQUIRES A TABLE OF VALIO OP-CCDES ANC CONDITIONS. 
NOINS [IS THE LENGTH OF THE TABLE. 
OPTBL CONTAINS POSITIVE THREE CECIMAL CIGIT INTEGERS. 
THE FIRST TWO OIGETS ARE THE OP-CCCE FOR THE INSTRUCTION. THE 
LAST DIGIT IS A CONDITION FLAG. 

=0 FCR NG CONDITION 

=1 IF INGEX TAG IS REQUIRED 
INSTR wItLt BE SET TC THE SLU8SCRIPT NUMBER OF CPTBL IF A MATCH 
IS FCUNC. IF THERE IS NC MATCH, INSTR RETURNS =C. 
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SIMRNC67 
SIMRNCO68 
SIMRNC69 
SIMRNO70 
SIMRNO71 
SiMRNO72 
SIMRNO73 
SIMRNC74 
SIMRNO75 
SIMRNO7& 
SIMRNG77 
SIMRNO78 
SIMRNO79 
SIMRNC8O 
bIMRNOBL 
STIMRNC82 
SIMRNC83 
SIMRNO8&4 
SIMRNO85 
SIMRNO86 
SIMRNO87 
SIMRNOS88 
SIMRNC8S 
SIMRNO?J 
SIMRNC91 
SIMRNOG2 
SIMRNO93 
SIMRNO94 
SIMRNCIS5 
SIMRNC96 
SIMRNO97 
SIMRNO98 
SIMRNOS9 
SIMRNLOO 
SIMRN101 
SIMRN1O02 
STMRN1O3 
SIMRN1O4 
SIMRN1OS 
SIMRNLO6 
SIMRN10O7 
SIMRN1OS 
SIMRNLOS 
SIMRN1L1C 
SIMRNILL 
SIMRNL1L2 
SIMRNLL3 
SIMRNL14 
SIMRNL1L5 
SIMRN116 
SIMRN117 
SIMRNLLS 
SIMRNLI9 
SIMRNL20 
SIMRNI21 
SIFRRNL22 
SIMRNL23 
SIMRN1L24 
SIMRNL25 
SIMRN126 
SIMRN127 
SIMRNL28 
SIMRN129 
SIMRNL3C 


EA=ACCR + 1 SIMRNL31L ct 


C----- SEARCH CP-CCCE TABLE FCR MATCH SIMRNL32 a 
IF (CPCOL-LOC) 7,30,30 SIMRN133 
7 INSTR = C SIMRN134 7% 
8 INSTR = INSTR + 2 SIMRN135 7f 
IF (GPCOC-OPTBL(INSTR)) 30,3578 SIMRAN136 ut 
C----- INVALIC GP-CGCE SIMRNL37 
30 INSTK = 20 SIMRNL3& a 
GO TG 160 SIMRN139 vf 
Cc SIMRN140 4 
C----~ SET CONCITION FLAG : SIMRN141 oe 
35 IFLAG = OPTBL(INSTR-1L? SIMRN142 
C----- MAKE INSTR ECUAL TG SEQUENCE NO. OF INSTRUCTION. SIMRN143 FT 
INSTR = INSTR/2 SIMRN144 | 
C-----~ COMPUTE EFFECTIVE ACDRESS SIMRN145 as 
CXRL = XRL(TAG) SIMRN146 
CXRZ = XR2(TAG) SIMRN147 _ 
IF(LELAG=1) 45,40,30 SIMRN148 : 
C----- REQUIRED TAG MISSING SIMRN149 4 
4C IF(TAG) 160,16C,200 SIMRN150 _ 
C----- IS INSTRUCTION (ADDRESS) INCEXED SIMRNL51 
45 IF(TAG) 200,2C0,70 SIMRN152 ~? 
C----~ ANY ERRGRSeee SIMRN153 
16C JERR = 2 SIMRN154 -! 
GO To 57C¢ SIMRN155 
Cc SIMRN156 ne 
C-----COMPUTE EFFECTIVE ADDRESS FCR INCEXED INSTRUCTIONS. SIMRN157 | 
70 EA=EA+ CXR(2)+1C00 SIMRN158 f 
EA=EA-(EA/1C0C}*1006 SIMRN159 a 
c SIMRN 160 
Cc SIMRNL6L =P 
C-----SAVE CONTENTS QF EA SIMRN162 4 
200 CEARL=LCCL(EA) SIMRN163 at 
CEAR2=LCC2(EA) SIMRN164 
C----~EXECUTE INSTRUCTION SIMRN165 = 
GO TO (1100,1110,1200,2210,1300,1300,1320,1320,1401,1411,1421, SIMRN166— { 
Cc 1500 ,1510,1520,1530,154C,1600,1610,1770)2 INSTR SIMRN1L67 a 
Cc SIMRN168 _ 
Cc SIMRN169 
Cc SIMRN170 "T 
(2-2-6 0--- 9-2 -- $$$ +--+ - $$ - = - = -- == woo------------------------ SIMRNL71 i 
Cc : SIMRN172 one 
C----- LOAC ACCUMULATOR. SET SIGN LATCH. SIMRN173 
Cc SIMRN174 = 
1100 AREGL=CEAR1 SIMRNL75 
AREG2=CEAR2 SIMRN1L76 ¥ 
1105 CALL LATCH(AREG) SIMRN177 a 
GO TC 5¢C SIMRN178 
Cc SIMRN179 ~e 
(-------------------~~------ + ----- - -- 5 -- -- - - + $5 - $$ $$ 5 5 + - += -- = --- SIMRN180 } 
c SIMRN181 — 
C----- STORE ACCUMULATOR. SET SIGN LATCH. SIMRN182 
1110 LOCL(EA)=AREGL SIMRN183 
LOC2(EA)=AREG2 SEMRN184 F 
GO TO 1105 SIMRNL85 af 
Cc SIMRN186 
C----------------- wrt rr rn tt nnn on nnn nnn nnn nnn ene = SIMRN187 
Cc SIMRN188 op 
C----- ADD To ACCUMULATOR. SET SIGN AND OVFL LATCHES. SIMRN189 | 
1200 CALL DWADD(AREG,CEAR,AREG, ICVFL} , ; SIMRN190 . f 
GO TO 5cO SIMRN191 
Cc SIMRN192 7 
Cnr tn nn rn nnn nn nnn nn nnn nnn nnn nnn nn nnn ne renner nanan SIMRN193 | 
Cc SIMRN194 f 
C----~ SUBTRACT FROM ACCUMLLATGR. SET SIGN AND OVFL LATCHES. SIMRN195 mae 
121C NNREG(1)=-CEARL SIMRN196 
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NNREG(2)=-CEAR2 SUMRNLYS 

CALL CWADD(AREG,NNREG, AREG, IOVEL) SIMRN198 

GO TO 500 SIEMRN199 

is Cc SIMRN200 
: C. SIMRN2OL 
4 C---~-- SHIFT LEFT ACCUMULATOR. SIMRN202 
C--~-- SHIFT RIGHT ACCUMULATOR SIMRN203 

(22-202 2-2-2 + ------ = +--+ +--+ 5-5-5 es +e 5  --e --e + SIMRN204 

q C----+ NEGATIVE SHIFT COUNT GIVES INVALID INSTRUCTION. SIMRN205 
4 13200 IF(CEARL) 160,1301,1329 SIMRN206 
C----- ZERG SHIFT COUNT SETS SIGN LATCH QNLY. SIMRN207 

L30L IF(CEAR2) 160,1373,1302 SImRN208 

ae 1302 IF(CEAR2~6) 1303+1329,1329 SIMRN209 
i 1303 SHFTC = CEAR2 SIMRN210 
A GO FC 1346 SIMRN211 
(-------------~+------- +--+ ee 5 +--+ + e+ SIMRN212 

Cc SIMRN213 

re C----- ROTATE LEFT ACCUMULATOR. SIMRN214 
[ C-----= ROTATE RIGHT ACCUMULATOR. SIMRN215 
i. C---- 1000 MCD 6 EGUALS 4. SIMRN216 
C1320 SHFTC = LOOC*I(CEARL - 6*(CEAR1/6)) + CEAR2 SIMRN217 

a 132G SHFTC = 4#(CEAR1 - 6*(CEAR1/6)) + CEAR2 SIMRN218 
: SHFTC = SHFTC - 6*(SHFTC/6) SIMRN219 
IFCINSTR-8) 1340,1330,1340 SIMRN220 

1330 SHFTC = 6 - SHFIC SIMRN221 

Cc SIMRN222 

a (----~--~--------------~--~~-~---------- ween en $+ + $+ - = - -- - = == - + SIMRN223 
; C-----~ ALL SHIFTS SIMRN224 

: 1340 K = 0 SUMRN225 
C-----~ TO AVCIC FORTRAN OXVISION CF NEGATIVE NUMBERSIN SKIFTS. SIMRN226 

cs IF (AREG2)1346,1345,1350 SIMRN227 
1345 ILF(AREGL)1347,1350,1350 SIMRN228 
1346 AREGZ = -AREG2 SIPRN229 
1347 AREG1] = -AREGL SIMRN230 

C----- SAVE FACT THAT SIGN IS NEGATIVE. SIMRN231 

% K=l SIMRN232 
i Cc SIMRN233 

: 1350 IF(INSTR-6) 1351,1361,4351 SIMRN234 
Cc . SIMRN235 

Cc SIMRN236 
C----~-ROTATE INSTRUCTIONS - SIMRN237 

‘ Ce---- SHIFT LEFT ACCUMULATOR. SIMRN238 
1351 00 1359 I[=1,SHFTC SIMRN239 

CARRY = AREG2/1CO SIMRN240 

AREG2 = (AREG2~100*CARRY)*10 SIMRN241 

! CARYZ = AREGL/100 SIMRN242 

: AREGL = (AREGI-LOC#CARY2)¥*1C + CARRY SIMRN243 
LEC(INSTR-7) 1356,1358,1358 SIMRN244 

“4 C----- SHIFT LEFT ONLY - SET OVERFLOW IF NONZERO CIGIT SHIFTEC OUT. SIMRN245 
i 1356 IF(CARY2) 1357,1359,1357 SIMRN246 
ca 1357 IOVEL = 1 SIMRN247 
C-~--- ROTATE INSTRUCTIONS ONLY SIMRN248 

1358 AREG2 = AREG2 + CaRY2 SIMRN249 

1 1359 CONTINUE SIMRN250 
TT GO TO 1371 SIMRN251 
: Cc : SIMRN252 
C-~--- SHIFT RIGHT ACCUMULATOR SIMRN253 

- 1361 CO 1369 I=1,SHFTC SIMRN254 
a CARY2 = AREGL/IC SIMRN255 
qs CARRY = AREGL - LO#CaRY2 SIMRN256 
AREGL = CARY2 SIMRN257 

1369 AREG2 = AREG2/1C + LOO*CARRY SIMRN258 

C RESTORE SIGN CF ACCUMULATECR. SET SIGN LATCH. SIMRN259 

1371 LF(K) 1373,1373,1372 SIMRN260 

1372 AREG2 = -AREG2 SIMRN261 

AREGI = -AREGL SIMRN2E2 


v5) 


1373 CALL LATCH(AREG) SIMRNZ63 


GO TO 5CcO SIMRNZ64 
C----- SHIFT COUNT GREATER THAN SIX SIMRN265 
1329 AREG1 = 0 SIMRNZ66 
AREG2 = 0 SIMRN267 

ISIGN = 0 SIMRN268 

GO TC 5C0 SIMRNZ69 

c SEMRN27C 
(---+-------------- + -~------ -- = $2 5 on nn nnn nnn nnn nnn nnn nen en nnnnennne SIMRN271 
c SIMRN272 
(--------------------~------ ~------- +525 - 22-2 nnn nn ne nnn enn SIMRN273 
c ; SIMRN274 
C----- LOAD XR. SET SIGN LATCH. SIMRNZ75 
1401 XRL{TAG)=CEARL SIMRN276 
XR2( TAG) 8CEARZ SIMRN277 

CALL LATCH(CEAR} SIMRN278 

GO TO SCO SIMRN279 

c SIMRN2B0 
(~-------------+------~----- -- ---- = - == = $= 2 5-2 oon nnn en nnn nen SIMRN261 
C SIMRN282 
C----- STORE XR« SET SIGN LATCH. STMRN283 
1411 LOCL(EA)=CXR1 SIMRN284 
LOC2(EA)=CXR2 SIMRN285 

CALL LATCHICXR} SIMRN286 

GO 10 5cQ SIMRN287 

c SIMRN288 
(------------------------- --- ------ -- = = 5-2 $$ $+ 2 enn nnn =  STMRN2ZE9 
c SIMRN290 
C----- AOD TO xR. SET SIGN ANO OVFL LATCHES. SIMRN291 
1421 CALL DWADD(CXR,CEAR»NXREG,IOVFL) SIMRN292 

- XRLCTAG) = NXRGL SIMRN293 
XR2(TAG) = NXRG2 SIMRN294 

GO TO 5CO SIMRN295 

c SIMRN296 
(---------------------- joo - +--+ --- 52 = 2 - = +--+ = + 5-22 - -- + $= $= ---- + -- SIMRN297 
c ~. SIMRN298 
C----- UNCONOITIONAL BRANCH. SI¥RN299 
1500 IAR = EA - 1 SIMRN300 
Go TO 500 SIMRN3OL 

c SIMRN302 
(------------- ----- ----- 2-5 $$$ nn ne een nn nn nn nner nnn nnn nnn annie SIMRN3O3 
C SIMRN304 
C----- BRANCH ON NEGATIVE. SIMRN305 
1510 IF{ISIGN) 1500,500,500 SIMRN306 
c SIMRN307 
(------~------------------ ----- -- - = -- + - - 2-5 ---- enn nn nen -- -- = === - SIMRN3O8 
C----- BRANCH ON ZERC. SIMRN309 
1520 IF(ISIGN} 5C00,1500,500 SIMRN310 
C SIMRN3L1 
C------- eee nn $233 == 2+ $25 5 23 3 $n on on ne nn nnn nn enn nnn nnn SIMRN312 
C SIMRN313 
C----- BRANCH ON POSITIVE. SIMRN314 
1530 IF(ISIGN) 500450051500 SIMRN3LS 
c SIFRN3L6 
(--+----------+------ ------ +--+ --- = -- 5-2 5-2 $e nnen n ne nnennn enna SIMRN317 
C4 _ SIMRN318 
C----- BRANCH ON OVERFLOW. RESET OVFL LATCH. SIMRN319 
1540 IF(IOVFL) 500550071541 SIMRN320 
1541 IOVFL=0 SIMRN321 
60 TO 1500 SIMRN322 

c SIMRN323 
(-~+---+---------- --------- == ---- = = = $5 = - $2 25 nnnnnnen nnn nnn nnn SIMRN324 
c i SIMRN325 
C----- READ FROM INPUT DEVICE INTO (EA). SIMRN326 
1600 NOCCS = NOCOS + 1 SIMRN327 
IF(NCCOS-NCROS) 1601+160151605 SIMRN328 


74 


lécl 


Cm a en re ree eer 


570 


K = nCCCS + FLATA - 1 


LOCL(EA) = DATALIK) 
LGC2Z(EA) = CATA2Z(K) 
GO TG SCO 
CALL RDR6O 


TF(ERRCT(1L)) 385,500,385 
JERR=4 
GO TC 5CC 


WRITE (EA) ONTC OUTPUT DEVICE. 
CALL CECEB(CEAR,KKBLF) 
WRITE(NC,1615)KKBUF 

FORMAT( LH ,7AL) 

NwTR=NWTRtl 

IF(NWTR-30) 1617,1617,500 
NSAVL(NWTRI=CEARL 
NSAV2(NWTRI=CEARZ 

GO TC 500 


GO TG 5C0 


TRACE ITF SSW 1 ON 
TCNTR=TCNTR+L 
IF(TCNTR-25) 510,510,501 
CALL GCATSW(1+J) 

GO TU (510,520)4J 

MSW=1 


- FFULCTR) 570,560,57C 


LCTR=1 

WRITE(NC,561) 

FORMAT("' XEQNC ADOR C( ACER) 
U C(EA) C(ACC) 
7 SIGN QVFL'./) 

GET C(ACOR) 

CALL CECES(MREG,IIBUF) 

NEUMG(1) = NUTBL(2*INSTR-1) 

NEUMO(2) = NUTBL(2*INSTR) 

GET C(XxR) 

IF (TAG) 580,580,585 

00 582 I=1,7 

JJBLE(I) = TABLE(12) 

MMBUF(I}? = TABLE(12) 

CONTINUE 

GO TO 590 

CALL DECEBI(CXR, JJBUF) 

NXRGL = XRL(TAG) 

NXRG2 = XR2(TAG) 

CALL DECEBINXREG, MMBUF) 

GET CEA} 

CALL CECEB(CEAR,KKBUF) 

NNREG(1)=LOCI1(EA) 

NNREG (2)=LOC2 (EA) 

CALL CECEB(NNREG,NNBUF ) 

GET C(acc) 


75 


MNEVMONIC 
C(XR) 


C(xR?) 
C(EA)', 


EA', 


SIMRN329 
SIMRN33G 
SIFRN331 
SIMRN332 
SIMRN333 
SIMRN334 
SEMRN335 
SIMRN336 
SIMRN337 
SIMRN338 
SIMRN339 
SIMRN340 
SIMRN341 
SIMRN342 
SI MRN343 
SIMRN344 
SIMRN345 
SIMRN346 
SIMRN347 
SIMRN348 
SIMRN349 
SIMRN350 
SIMRN351 
SIMRN352 
SIMRN353 
SIMRN354 
SIMRN355 
SIMRN356 
SIMRN357 
SIMRN358 
SIMRN359 
SIMRN360 
SIMRN361 
SIMRN362 
SIMRN363 
SIMRN364 
SIMRN365 
SIMRN366 
SIMRN367 
SIMRN368 
SIMRN369 
SIMRN37C 
SIMRN371L 
SIMRN372 
SIMRN373 
SIMRN374 
SIMRN375 
SIMRN376 
SIMRN377 
SIMRN378 
SIMRN379 
SIMRN380 
SIMRN381 
SIMRN382 
SIMRN383 
SIMRN384 
SIMRN385 
SIMRN386 


. SIMRN387 


SIMRN388 
SIMRN389 
SIMRN390 
SIMRN391 


. SIMRN392 


SIMRN393 
SIMRN394 


2B Meer ena eon 


CALL DECEB(AREG,LLBUF) SIMRN395 
Cc SIMRN396 
EA=EA=1 SIMRN397 
WRITE(NG 2596) RNTIM(2),PC,y IT IBUF,NEUMD, TAG, ACCOR, JJIBUF, EA, KKBUF, SIMRN398 
Cc LLBUF »MMBUF yNNBUF, ISIGN, LOVEL ‘ SIMRN399 
596 FORMAT(AH s15s2X914e4XeTAle4Xe2A2e Tle bX eT 39 4X¢ TALS 4X9 149 3X_ TAL, SXeSIMRNGOO 
Cc TAL 4X9 TAL eSXe TAL OXel2,5Xe12 ) SIMRN4OL] 
Cc SIMRN402 
GO TO 521 SIMRN403 
Cc SIMRN404 
Cc SIMRN4OS 
Coees- SKIP LINE WHEN DATSW TURNEC OFF SIMRN406 
520 GO TO(512,521),MSW SIMRNSO7 
512 MSW=2 SIMRN4O8 
WRITE(NO,555) SIMRN409 
555 FORMAT(1H ) SIMRN410 
521 IF(JERR) B00,523,800 SIMRN411 
Coeen= FLUSH TC NEXT JOB (SIM610) IF SSW 11 ON SIEMRN412 
Cc ( OPERATOR JUDGES TIME EXCESSIVE -IF PRINTING IN LOOP SIMRN413 
Cc WILL NOT BE STCPPED IN REASONABLE TIME BY CCUNTER. ) SIMRN414 
523 CALL DATSW(11y,J) SIMRN415 
GO TO (530,600),J SIMRN416 
c SIMRN417 
Conese BEGIN NEXT MACHINE CYCLE SIMRN41B 
600 PC = IAR SIMRN4G19 
C----- FLUSH TC NEXT PROGRAM (AFTER DUMP) IF RUN TIME EXCESSIVE. SIMRN420 
IF(RNTIM(2)-MAXRT) 1000,1000,530 SIMRN421 
530 JERR=3 : SIMRN422 
800 RETURN SIEMRN423 
END SIMRN424 
// DUP SIMRN425 
*DELETE SIMRN SIMRN426 
*STORE WS UA SIMRN SIMRN427 
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7 // JOB DUMPGOO)L . 


// * DUMPGOOZ 
// * PROGRAM TG COMPUTE AND PRINT GRACING INFGRMATION AND DUMP CDRE. DUMPGOO3 
o 1% DUMPGO04 
| // FOR DUMPGOOS 
: NAME CUMPG DUMPGCO6 
*IDCS(CARGy1403PRINTER,DISK) DUMPGOO7 
*LIST SYMBOL TABLE DUMPGOO08 
*EXTENDED PRECISION DUMPGOO9 
*DNE WGRD INTEGERS DUMPGOLO 
C----- SINCE INTEGER SIZE NOT ADECUATE, OUMPGOL1 
REAL RWGTMyRWGPL yPPTT DUMPGO12 
= INTEGER REG(2) yREGLyREG2 DUMPGOL3 
r INTEGER KBUFF(7) DUMPGO14 
1: INTEGER LOC (2000) ,XR(18),AREG( 2), TAG, ADCR, EA, OPCOCyNEUMD( 2) DUMPGOLS 
INTEGER [DBUF(48),NAME(32),ERRCT(5) DUMPGO16 
INTEGER TABLE(16) DUMPGO1T7 
i. INTEGER RNTIM(2) yPROGL DUMPGO1S 
{| INTEGER LGC1( 1000) yL0C2(1000) »XR1(9) yXR209) DUMPGC19 
INTEGER NSAV1(30),NSAV2(30) DUMPGO20 
INTEGER STORT,STOPL DUMPGO21 
INTEGER ANS1(30),ANS2(30) yNANS,LCANS(5),NANSR(S) © DUMPGO22 
| INTEGER NROSR(10),LOCRD(10) DUMPGO23 
INTEGER PTCR(1G),PTCRNyPTCA(10),yPTCC(10) sPTCCyPTCW(10) ,PTWO DUMPGO024 
INTEGER PCGRT,»PCGPL DUMPGO25 
INTEGER FDATA,POSPT(3) DUMPGO26 
- INTEGER RDATA(14) DUMPGO27 
INTEGER PTSRyPTSA,PTSWyPTS DUMPGO28 
i . INTEGER FILNG,PCyLINE (70) ,DATA(212) »DATAL (106) »CATA2(106) DUMPGO29 
L INTEGER NAM(31),RAWGR DUMPGO30 
a COMMGN LOC, XReAREGyISIGNy INSTR» TAGeACCReEAsCPCOD,yNEUMD, IDBUF NAME DUMPGO31 
i COMMON ERRCT DUMPGO32 
Pog COMMON NIyNCy TABLE, JERR DUMPGO33 
5 COMMON [yJyKyly™ DUMPGO34 
f COMMGN INIT ’ DUMPGO35 
Poy COMMON NSTUD,NPROB DUMPGO36 
i ; COMMON RNTIM,PROGL ,NOCDS DUMPGO37 
Book COMMON NANSKyNSAV1,NSAV2 DUMPGO38 
: COMMON [DUMY,STORT,STOPL»ANS1+ANS2yNORDS yNRGPSyPDSPT DUMPGO39 
COMPUN NRDSRyLCCRO,yLCANS yNANSRyPTCRyPTCAyPTCC yPTCWyPTCRNyPTCO DUMPGO4O 
COMMON PTWGyNANS,yFDATA,MAXRTyPCGRT,PCGPLy RDATA DUMPGO41 
COMMUN PTSRyPTSAyPTSWePTS DUMPG042 
COMMON FILNCyPCyIGVFLyLINE,CATA DUMPG043 
EQUIVALENCE (LOC(1),LOC1(1)),(LGC(1001),L0C2(1)) DUMPG044 
EQUIVALENCE (XR(1)yXR1(1)),(XR(10)9XR201)) DUMPG045 
EQUIVALENCE (PDSPT(1),NPPTR)»,(POSPT(2),NPPTA), (POSPT(3),NPPTW) DUMPG046 
EQUIVALENCE (KBUFF(1),LINE(1)) DUMPGO47 
EQUIVALENCE (REG(1),REGL),(REG(2),REG2) DUMPG048 
EQUIVALENCE (DATAL(1),DATA(1))y (DATA2Z(1),CATA(1C7!} DUMPGO49 
EQUIVALENCE (NAM(1),NAME(1)) DUMPGOS5O 
DEFINE FILE 2(800,4C,U,NXRCC) -DUMPGO51 
Cc DUMPGO52 
C----- EXECUTION CGMPLETE DUMPGO53 
c DUMPGO54 
C-- ; DUMPGOSS 
(------ PTSR = PCINTS RECIEVED FCR READING. DUMPGO56 
4 PTSR = G DUMPGO57 
C------ PTSA = POINTS RECIEVED FCR ANSWERS + ANSWER LOCATIONS. DUMPGO58 
PTSA = G DUMPGO59 
C------ PTSh = PDINTS RECIEVED FGR WRITING ANSWERS. DUMPGO60 
PTSh = C DUMPGO61 
Geocree FDATA = FIRST LCCATION IN *DATAt FRDM WHICH INPUT DATA WAS DUMPGO62 
c tREAD' (FOLLOKING READS WERE FROM SUCCESIVE LCCATIONS) .« DUMPGC63 
C DATA CARD G+ WORE 5. DUMPGi64 
77 


LD=FDATA=1 “  DUMPLUOD 


C------ NRGPS = NG CF GRCUPS CF REAC AREAS DUMPGC66 
00 7064 [=1l,NRGPS DUMPGC67 
C-~----- LOCRD(I) = FIRST LOCATION CF ITH GRCUP TC BE REAC INTO. DUMPGC68 
Cc DATA CARD 3 ; ; DUMPGC69 
TAR = LGCRD(I) + L DUMPGC70 
Ce-<==- WMROSR(IT) = NC OF REACS RECUIREC IN ITH GRCUP. DUMPGO71 
Cc DATA CARD 2 : DUMPGC72 
K=NROSR(T) DUMPGC73 
CO 704 J=l,K DUMPGCT4 
[0=1D0¢1 ODUMPGC75 
TF(LOCI(IAR)-CATAL(ID)} 704,702,704 DUMPGO76 
702 TF(LCC2(TAR)-CATA2(1D)) 704,703,704 DUMPGC77 
C------ PTCR(I) = NO OF POINTS FOR REACING EACE CARC IN‘ ITh GROUP OUMPGC78 
C DATA CARD 5 DUMPGC79 
703 PTSR=PTSR+PTCR(I) DUMPGC8&C 
C------ ITH GROUP CONSISTS OF CONSECUTIVE LOCATIONS. DUMPGC8L 
704 IAR=I[AR41 DUMPGC82 
C------ NORDS = NO OF READS REQUIREG DUMPGC8&3 
TF (NORDS-NOCDS) 706,705,706 DUMPGO84 
C------ PTCRN = NO OF POINTS FCR CORRECT NO OF REACS. DUMPGC85 
Cc DATA CARD 9+ WGRD 1 DUMPGO86 
705 PTSR=PTSR + PTCRN DUMPGC87 
706 CONTINUE DUMPGO88 
TF (PTSR+PTCRN-NPPTR) 710,709,709 DUMPGO89 
709 PTSR = PTSR + PTCRN DUMPGOS9O 
710 T= 0 DUMPGC9L 
DO 730 K = 195 DUMPGO92 
~tbel DUMPGO93 
C------ NANSR(K) = NG GF ANSWERS IN K'TH ANSWER GRCUP. DUMPGC94 
Cc DATA CARD 4, WORDS 6 TC 10 DUMPGO95 
7101 [F(L-NANSR(K)) 7105,7105,730 DUMPGC96 
C------ LCANS(IT) = LCCATICNS IN WHICH ANSWERS ARE TO BE PUT DUMPGC97 
Cc DATA CARD 4» WORDS 1 TO 5 DUMPGO98 
7105 TAR = LCANS(K) + L DUMPGO99 
TF(LOCL(TAR)-30000) 712,711,712 DUMPG1OO 
Fil TF(LOC2(TARI-30000) 712,713,712 OUMP'G1LOL 
C<<<-<< PTCA(I) = NO GF POINTS FOR AFFECTING ANSWER LCCATICNS DUMPG1LO2 
c DATA CARD 6 DLUMPG1O3 
712 PTSA= PTSA+ PTCA(K) DUMPG1LO4 
713 tT =t+ DUMPG1LOS5S 
tL=t+il : DUMPG106 
TF (1-30) 7135,7135,728 DUMPG1O? 
7135 TFC LOCL(TARI-ANSL(I)) 716,714,716 DUMPS108 
714 TFCLOC2(TARI-ANS2(1)) 716,715,716 DUMPG1O9 
C---~-- PTCC(I) = NO CF PCINTS FOR CORRECT ANSWERS DUMPG1LO 
Cc DATA CARD 7 DUMPG1LLL 
715 PTSA= PTSA+ PTCC(K) a DUMPG11L2 
716 TFCI-NANSW) 7165,7165,724 DUMPG113 
7165 TE(NSAVL(T)-ANSL(I)) 719,717,719 DUMPG114 
717 TEC NSAV2(T)-ANS2(1)) 719,718,719 DUMPGLIS 
C=----- PTCW(I) = NO OF POINTS FOR PRINTING CORRECT ANS. IN CORR.ORCER DUMPG1L6 
Cc DATA CARD’ 8 DUMPG1L? 
718 PTSwW= PTSW+ PTCW(K) DUMPG1LB 
C------ NANSW = NO OF ANSWERS WRITTEN DUMPG119 
719 DO 722 J= lyNANSW DUMPG120 
C<<=<=- NSAV1,2(1}) = ANSWERS WRITTEN BY PROGRAM ( FIRST 10 ) : DUMPG121L 
C----~- ANS1L,»2(1) = CORRECT ANSWERS CUMPGL22 
TF(NSAVI(JI-ANSL(T)) 721,720,721 DUMPG123 
720 LF(NSAV2(J)-ANS2(1)) 721,723,721 DUMPG124 
721 [F(J-30) 722,724,724 DUMPG125 
722 CONTINUE . DUMPG1L26 
GO TO 724 DUMPG1L2e7 
C------ PTwO = NO OF PCINTS FCR PRINTING CORRECT ANS. IN ANY GROCER DUMPGL265 
Cc DATA CARD 9, WORD 3 DUMPG129 
723 PTSWK= PTSw+ PTWC OUMPG13C 
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ERIC 
84 


— 
a 


aaa 


AAAAAAANANA 


799 


6205 

7995 
801 
802 


803 
804 


805 
806 


807 
808 


-~NANS = NO CF ANSWERS RECUFREG 


DLYPG1 31 

DATA CARD Gy WORD 4. CUMPG13z 
DO 7265 K1=1,5 CLMPG133 
tl=l OLMPG134 
[F(LL-NANSR(K1L)) 7242,7242,7265 DUMPG135 
TAR = LCANS(KL) + LL DLUMPG1 36 
Li =tl +1 _OLMPG137 
IF(LOCL(ITARI-ANSL(IT)) 726,725,726 DLUMPG13& 
TF(LOC2(TARI-ANS2(1)) 726,727,726 DUMPG139 
GO TQ 7241 DUMPGLA4C 
CONTINUE © OLMPGL41 
GO TG 728 DUMPG1L42 
--PTCO = NO OF POINTS FOR CCRRECT ANS IN CORR LCCS IN ANY CRCER.OLMPG143 
DATA CARD 9, WGRD 2 CUMPGL44 
PTSA= PTSA+ PTCC OLMPG145 
GO TO 7101 DUMPG146 
CONTINUE DLMPGL47? 
OLMPGL48 

--PTS = TOTAL NG. CF POINTS RECIEVEC. OLMPGL49 
PTS = PTSR + PTSA + PTSW DUMPGL50 
OUMPG151 

OLMPG1L52 

NPPTT = NO» OF POSSIBLE PCINTS - TCTAL. DUMPGL53 
NPPTT = NPPTR + NPPTA + NPPTW DUMPGL54 
PPTT = NPPTT OLMPGL55 
RWGTM = 1. DUMPG1L56 
RWGPL = lL. DUMPGL57 
IF(PTS-NPPTT) 742,750,750 OLMPG1L58 
--00 NCT COUNT TIME OR LENGTH BETTER THAN STANDARL IF FULL GUMPGL59 
POINTS WERE NOT EARNED. OUMPGL6C 
IFCRNTIM(2)-STORT) 744,744,743 DUMPGL61 
RWGTM = RWGTM*STORT/RNTIM(2) DUMPGL62 
IF(PROGL-STOPL) 760,760,745 OUMPG163 
RWGPL = RWGPL¥*STDPL/PROGL DUMPG1L64 
GO'TO 760 OLMPGL65 
RWGTM = RWGTM*STORT/RNTIM(2) DUMPG1L66 
RWGPL = RWGPL*STOPL/PROGL DUMPG167 
RAWGR= ( LOO-PCGRT-PCGPL+PCGRT*RWGTM+PCGPL¥*RWGPL)/PPTT*¥10.¥*PTS OLMPG1L68 
GO TO(780+77017707780),JERR DUMPGL69 
RAWGR = 3¥*RAWGR/4 DUMPGL7C 
CONTINUE DUMPGI7L 
DUMPGL72 

DUMPGL73 

~ROUTINE TO GUMP PSUEDO-CORE TC PRINTER. DUMPGL74 
DUMPGL75 

toc IS 1000 wORG PSUEDO-CORE. DUMPGL76 
DUMP IS TEN 7I1 INTEGERS PER LINE. DUMPGL?7 
ALL OF CORE IS DUMPED. DUMPG178 
DUMPGL79 

WRITE(NG,799) NAME,NPROB DUMPG18C 
FORMAT(1HO,08X,32A2,12X,'PRCBLEM NG.',14) DUMPGLBL 
IF(NPROB~4)7995,8205,7995 DUMPG1L82 
NANS=0 DUMPGL83 
GO 16(801,803,805,807), JERR DUMPG184 
WRITE(NOs802) DUMPGL85 
FORMAT(LHO,y'EXECUTIGN COMPLETE’) DUMPG186 
GO TO 820 . DUMPG187? 
WRIETE(NC,804) PC : DUMPG188 
FORMAT(1LHO,*€XECUTION TERMINATED BY INVALID INSTRUCTIGN AT ',13) OUMPG1B9 
GO TO 820 DUMPG190 
WRITE(NC,806) . DUMPGILOL 
FORMAT(1LHO,*EXECUTION TERMINATED OUE TO EXCESSIVE RUN TIME!) DUMPGL92 
GO TG 820 DUMPGL93 
WRITE(NC,808) PC,EA DUMPGL94 


FORMAT(1LHO,’EXECUTION TERMINATED BY INSTRe AT "yI3y¥* ATTEMPTING TODUMPG1LOS 


1 REAG 1ST CARD OF NEXT PROG. INTO ',J]3) 
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RS 


DUMPGL96 


seu wRITE(NC,81L) ANTIM(2) sSTLRT»PRCGL»STOPL»NCGCS yNGRCOS sNANSWyNANS 
#lh FORMAT (LHOyIGXs RUNTIME', 14X,"LENGTH GF CECK*,C8xX,'NO CF CARCS * 


DUMPGi97 
DUMPG198 


Ly *ReAC*,O6Xy*NC OF ANSWERS WRITTEN'/4(05X9*YCURS'sC6X,"STANCARC*) ,DUMPG199 


2/93X98016,C6X)/) 

WRITE(NC 1815) PTSReNPPTR»PTSAgNPPTA,PTSheNPPTWePTSyNPPTTsRAWGR 
8L5 FORMAT(LHO,C3X,"POINTS RECEIVED FOR---*/05X,*REACING DATA*,11X, 

1 ‘ANS IN CORR LCCATICNS*',C4X, 

2*WRITING ANSWERS sC9OX,*TCTAL* LOX: "RAW! y/ 

34(05X-* YOURS" sC6Xs*STANDARE® )44X9*GRADE' s/y3Xs9( 16, 6X)/} 

CALL CECE8{AREG,KBUFF) 

WRITE(NC,813) [SIGN,ICVFL,»K8UFF . 
813 FORMAT(LH »*SIGN *512,3X,*CVERFLOW ',12¢3Xs *ACCUMLLATOR', 2X, 7AL) 


a PRINT INDEX REGISTERS. 


[AR=C 
Js 6 
CO 860 K=1,9 
TAR =IAR + 1 
REGL=XR1( TAR) 
REGZ=XR2( TAR) 
S==--= CLEAR UNUSED INDEX REGISTERS 
IF(REGL~25000} 831,832,831 
e32 IF(REG2-25050) 831,833,831 
833 CO 834 L=ly7 
LINE(J)=TASLE(12) 
834 J=Jtl 
GO TG 860 
831 CALL DECES(REG,LINE{J)) 
Jzds+?T 
860 CONTINUE 
WRITE(NO,843) (LINE(J),J=8,70) 
843 FORMAT(LH ,1lOXs5HI/RS 99(3Xy7AL)»/) 


C~~--~DUMP PSEUDO - CORE. 


TAR=0 

DO 63C [=1,10G 

J=1 

M=0 

OO 88C K=1,10 

TAR =IAR + 1 

REGI=LOC1(IAR) 

REG2=LOC2( TAR) 

IF(REGL-300C0) 851,852,851 
852 I[F(REG2-300C0) 851,853,851 
853 DO 854 L=1,7 

LINE(J)=TABLE(12) 


854 J=Jtl 
M=M+41 : 
GO TG 880 

651k CALL CECEB(REG,LINE(J)) 
J=s=J+T7 


880 CONTINUE 
CO NCT PRINT LINE IF ALL LOCATIONS IN IT UNAFFECTED BY PROGRAM. 
IF(M-9) 821,821,830 
821L J=IAR-1C 
WRITE(NG,822) JyLINE 
822 FORMAT(LH ,13,2X,10(3Xs7AL)) 
830 CONTINUE 
~--~-ERROR TRAP 


~-~---IF FINAL GRAVE RUN, WRITE GRADE INFG ON FILE. 
=== IF INITIALIZATION+GOTG INI2Gy IF STUD. PROG.e GO TO LOAD NEXT. 
IFCINIT) 885,881,890. 
881 READ(2'1) NFILE 
NFILE = NFILE + 1 
WRITE(2*1) NFILE 


DUMPG200 
DUMPG201 
DUMPG202 
DUMPG203 
DUMPG294 
DUMPG205 
DUMPG206 
DUMPG207 
DUMPG208 
DUMPG209 
DUMPG210 . 
DUMPG211 
DUMPG212 
DUMPG213 
DUMPG214 
DUMPG215 
DUMPG216 
DUMPG217 
DUMPG218 
DUMPG219 
DUMPG220 
DUMPG221 
DUMPG222 
DUMPG223 
DUMPG224 
DUMPG225 
DUMPG226 
DUMPG227 
DUMPG228 
DUMPG229 
DUMPG230 
DUMPG231 
DUMPG232 
DUMPG233 
DUMPG234 
DUMPG235 
DUMPG236 
DUMPG237 
DUMPG238 
DUMPG239 
DUMPG240 
DUMPG241 
DUMPG242 
DUMPG243 
DUMPG244 
DUMPG245 
DUMPG246 
DUMPG247 
DUMPG248 
DUMPG249 
DUMPG250 
DUMPG251 
DUMPG252 
DUMPG253 
DUMPG254 
DUMPG255 
DUMPG256 
DUMPG257 
DUMPG258 
DUMPG259 
DUMPG260 
DUMPG261 


WRITE(2'NFILE} NPROBsNSTUC, JERRyRNVYIM(2),PREGL,PTSRyPTSAgPT SW oNAMe DUMPG262 
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86 


ieresaeay 


| 


LRAWGR 
885 CALL LINK(LCACP) 
890 CALL LINK(INI2G) 


END 
Jf DUP 

+DELETE DUMPG 
sSTORECI WS UA DUMPG 0001 


SFILES(2,SMSTU) 


bare 


DUMPG263 
DUMPG264 
DUMPG265 
DUMPG266 
DUMPG267 
OUMPG268 
DLMPG269 
DUMPG27C 


(ft * . INI TGCOL 


// *PROGRAM TC INITIALIZE GRADER. INITGOG2 
Mf * INI TGCO3 

// FOR INI TGOO4 
*NAME INITG INITGOOS 
*IOCS(CARD,DISK;1403 PRINTER) INI TGO06 
*EXTENCED PRECISION INTTGOO7 

#0NE WORD INTEGERS INITGOOS8 

*LIST SOURCE PROGRAM INITGOO9 

*LIST SUBPROGRAM NAMES INITGOLO 

*LIST SYMBOL TABLE ENETULE 

INTEGER A(2205}yINPUT( 160) CROIN( 78) sNREM(77),CATA(212} INITGCL2 

INTEGER NRDSR(1C),TABLE(16) iNITGC13 

INTEGER ERRyEA INITGOL4 
—— INTEGER OATA1(106) sDATA2(106) INITGOLS 
INTEGER FOATA INITGO16 

COMMGN A,INPUT,NREM,OATA INITGOLT 


EQUIVALENCE (NPROB,A(2140)),(CRCIN(1L}, INPUT(69})y(TABLE( LD A(2116)INITGO1B 
1}, (ENIT,A(2138)), (NROSR(1L) sCROIN(E))y (NCRCSs INPUT(64) )y (NRGPS, INPUINITGOLOD 


! 2T(65)) INLTGO20 
' EGUIVALENCE (EA,A(2C25)) INI TGO21 
i EQUIVALENCE (LGC11,A(1)),¢L0C212,A(1001)) INI TGO22 
: EQUIVALENCE (OATAL(1) sDATA(L}) y(QATA2(1),CATA(107)} INI TGO23 
EQUIVALENCE (ERR-A(2109)) INI TGO24 
i : EQUIVALENCE (NI yA(2114)),(NC,A(2115)) INI TGO25 
i EQUIVALENCE (FOATA,CROIN(75) ) INITGO26 
DEFINE FILE 1(24,160,U,NXREC) INITGO27 

DEFINE FILE 5(212,106sUyNXRDC) INITGO28 
i lL INIT = 1 INITGC29 
CO & 1=k,yl6G INITGO30 

8 INPUT(I) = 0 INITGO31L 

NI=2 INITGC32 

NO=5 INITGO33 

REAC(NIy13) TABLE,NGTST INITGO34 

13 FORMAT(16Al,11) INITGC35 

CALL OATSW(3yJ) INLTGO36 

GO TO{5C0;1C),J INI TGC37 

500 REAC(NI,1L1) NPROB,NRCSR(1),FCATA INITGO38 

GO TG 6CcO INITGO39 

10 REAC(NI,11) NPROB INITG040 

: Cc REAO(NI,11) NROSR,LECROyLCANS, Pena Leni E Cee Caner Cee Ieee INITGC41 
Cc 1PThC,NANS,FOATA INI TG042 
; REAC(NI,11} CROIN INI TGO43 
-600 CONTINUE INI TGO44 
’ Li FORMAT(10(16,2x)1 INI TGO45 
i CO 24 I = 1,10 INITGO46 
1 NRGPS=I-1L -  INITGO47 
: K = NROSR(T) INITGO48 
IF(K) 2C721,26 INITGO49 
i 20 NORCS = NORDS + K : INI TGOSO 
i NRGPS = 10 INI TGO51 
Cc WRITECL’NPROB) [OUMY,STDRT,STOPLyANS1,ANS2y,NORCS »NRGPS,NRDSRy INI TGOS2 
Cc LLOCRUyLCANS yPTCRsPTCAsPTCCyPTCWyPTCRNyPTCCyPTWCyNANSyFOATA,PCSPT INITGCS3 
i 21 wRITE(L’NPROS) INPUT INITGO5S4 
IF(NCTST) 16516514 INITGOS5S 
! 14 IF(NUTST-6) 15,515,16 INITGC56 
i 15 REAL(S'2*NOTSI-1) CATA © INITGC57 
GO fc 19 _ INITGGS8 
16 EA=1 INITGOS9 
La 4 [=1.l06 INITGC6C 
i CALL RERGG INITGC6LE 
; CATALC(I}=SLOCLL INI TGC62 
CATAZ(T)=bL0C12 INI TGC63 

IFCEKR) 37243 , INI TGC64 
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3 PAUSE 7009 INI TGO65 


Tete-l INI TGO66 

2 LOC12 = TABS(LCC12) INITGO67 

4 WRETE(NCe17) LOCLL»LOCL2 INITGO68 

17 FORMAT(1H 914,13) INI TGO69 

19 CALL ROR6O INI TGO7O 
CALL LINK(LOADP) INITGO7T1 

END INITGOT2 

// DUP INITGO73 
“DELETE INITG INITGOT4 
*STORECI wS UA INITG 0001 INITGO75S 
BFE TLES(1L,FSTOG),(5ySIMDT) INITGOT6 
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/f J08 
// * 


// %* PROGRAM TO FINISH PROBLEM INITIALIZATION PRCCECURE. 


H a: 
77 FOR 
- #NAME INL2G 


*TOCS(CARD,DISK,1403 PRINTER) 
*EXTENDED PRECISION 

*ONE WORD INTEGERS 

*LIST SOURCE PROGRAM 

*LIST SUBPROGRAM NAMES 


*LIST SYMBOL TABLE 


i INTEGER 
: INTEGER 
INTEGER 
INTEGER 
: INTEGER 
INTEGER 
‘ INTEGER 
; INTEGER 
i INTEGER 
i INTEGER 
! INTEGER 
' INTEGER 
' INTEGER 
{ INTEGER 
i INTEGER 
| INTEGER 
INTEGER 


COMMON LOC, XRyAREG ISIGN, INSTRyTAG,ACOR,EA,CPCCC yNEUMCGy ICBUF NAVE 


ERROR 

LOC (2000),XR(18) ,AREG(2),TAG,ACCRyEA,GPCCLyNEUMG( 2) 
TOBUF (48) yNAME(32),ERRCT(5) 

TABLE(16) 

RNTIM(2)yPROGL 

LOC1(1000),L0C2(1000),XR1(9),XR2(9) 

NSAV1(30) ¢NSAV2 (30) 

STORT,STOPL 

NRDSR(1C),LCCRD(10) 

ANS1 (30) ,ANS2(3C)  sNANS yLCANS(5) yNANSR(5) 

RDATA(14) 

PTSRyPTSAyPTSWyPTS 

FDATA,PCSPT(3) 

PCGRTyPCGPL 

PTCR( LO) yPTCRNyPTCA(LO) »PTCC( 10) yPTCCyPTCh{10),P THO 
FILNGyPC,LINE(7C) ,CATA(212) 

INPUT(160), TOuMY(1) 


COMVCN ERRCT 
COMMON NI,NO,TABLE,JERR 


COMMUN I 
COMMON I 


vse Kolb yM 
NIT 


COMMON RNTIMyPROGL,NOCOS 
COMMON NANShyNSAVLyNSAV2 


COMMON I 


COMMUN NRDSR yLOCROyLCANSsNANSRyPTCRyPTCAyPTCCyPTChyPTCRN»PTCC 


DUMY ySTORTySTOPLyANS1yANS2 »NGRCS yNRGPSy PCSPT 


COMMON PTWO;NANS,FDATAs MAXRTsPCGRT,PCGPLyRDATA 
COMMON PTSRyPTSAyPTSWyPTS 

COMMON FILNC»PCyIOVFL»LINE DATA 

EQUIVALENCE (LOC(L),LCCL(1L)), (LCCC 1OGL),LCC2(1)) 
EQUIVALENCE (XR(L)yXRLC LI) y(XRILO),XR201)) 


; 
| 
| COMMON NSTUOD,NPROB 
| 


EQUIVALE 


EQUIVALE 
EQUIVALE 


Q_ 
ERIC 
} 


NCE (POSPT(L)sNPPTR) y(PCSPT(2)yNPPTA),(PCSPT(3)yNPPTH) 
i EQUIVALENCE (N1,NOCOS),(NWTR,»NANSH) 
EQUIVALENCE (LOCLL,LOCL(1L)),(LOC12,L0C2(1)) 


NCE (ERRCT(1),ERRGR) 
NCE (CINPUT(L),IOUMY(L)?) 


DEFINE FILE 1(24,16CyUyNXREC) 


L TFCINIT-2) 2,1C1,101L 
C=-=== PUT RESULTS GF RUN OF STANCARD INTG *STANDARD' VARIABLES. 
2 INIT = 2 
I= 0 
OG 730 K =1,5 
Jel 
TLO LEC J=NANSR(K)} 720,720,730 
720 TAR = LCANS(K) + J 
T=.rt+t!l. 
UF (I-30) 725,725,730 
725 ANSL{T) = LOCLIIAR) 
ANS2(I) = LOC2(1AR) 
Jade 
GU TC 710 
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99 


INI 2GCOL 
INI 2GC02 
INI2GC03 
INI 2GCC4 
INI 2GCO5 
INI 2G006 
INI 2GC07 
INI 2G008 
INI 2G609 
INI2GOLO 
INI2GCL1L 
INI2GC12 
INI2GO13 
INI 2GC14 
iNI2GCL5 
INI2GC16 
INT 2GCLT7 
INI2GC18 
INI2GC19 
INI2GC2C 
INI2GC21 
INI 2G022 
INI 2GC23 
INI2G024 
INI2GC25 
INI 2GC26 
INI2GC27 
INI2GC28 
INI2GCz29 
INI2G03C 
INI2GC31 
INT2GC32 
INT 2GC33 
INT 26034 
INI2GC35 
INI2G036 
INI2G037 
INI 26638 
INI 2GC39 
INT2GC40 
INI2GC41 
IN12GC42 
INI 2G043 
INI 26044 
INI2GC45 
INI 26646 
INT 2GC47 
INI2GC48 
INI 26649 
INI ZGC5C 
INI2GC51 
INI2GC52 
INI2GC53 
INT 2GC54 
INI2GC55 
INI2G056 
INI2GC57 
INI 2GC58 
INF2GC59 
INI 2GC6C 
INT2GC6L 
INI 2GC62 
INI 26063 
INT2GCE4 


o_. 
ERIC 


730 CONTIALE 
NANS = NAN 


Sh 


lf (NANS) 77C,7704740 
74G GO 7eC L=1,NANS 
NSAVI(T) 
NSAV2(1) 
TF(1-30) 760,77C,77C 


ANS1L(1) = 
ANS2(1) = 


740 CONTINUE 


77C STOR? = RNTIM(2). 


STOPL = PROGL 


CALL LINK(DUMPG) 


C--~--~PiJT RESULTS OF SECOND PASS THRU CUMPG INTC STC VARIABLES 
Cc AND PUT STANDARD DATA ON 


101 NPPTR = PT 
NPPTA = PT 
NPPTW = PT 


oO WRITECL'NPROB) 


WRITECL*NPROB) ENPUT 
PAUSE 3333 
Cc RETURN TO INITIALIZE ANOTHER PROBLEM IF SENSE SwITCH 2 ON. 


SR 
SA 
Sk 


TOUMY,STORTsSTDPL»ANS1+¢ANS2,NCROS:NRGPS »NRDSRy 
Cc LLOCRDyLCANS sPTCRePTCA,PTCCyPTCWePTCRNePTCC, PT WO .RANS sy FOATAsPCSPT 


CALL DATSW(25J) 
GO YO(2COs777) oJ 
200 CALL LINKIINITG) 


777 STOP 7777 
END 
// QUP 
*DELETE 
*STORECI WS 
*FILES(1,FSTOG} 


UA 


INI2G 
INI2G 0001 


FILS. 


CO) 


beni 


INT 26C65 
INI 26C66 
(INIT 2GC67 
IN} 2G6CEé8 
INI 2G6C69 
INIT 2GC7C 
INT2GC71 
INI2GC72 
INIZGC73 
INT2GC74 
INIT2GC75 
INI2GCT76 
INI 2GC77 
INI2GC78& 
ENI2GC7S 
INI2GCBC 
INI2GC82 
INI2GC82 
INT 2G6C83 
INI 2GC84 
INT2G6C85 
IN} 26086 
INI2GC&7 
INI2G088 
INT2G6C a9 
INI 26090 
INT2G091 
INI2G6692 
INI 26093 
INIT 26094 
INT26095 


// JCB : ROSTDOOL 


/f FOR RDSTDOO2 
*LIST ALL ROSTOCO3 
*ONE KGRD INTEGERS ROSTDCO4 
*EXTENCED PRECISIGN . RDSTDCOS 
SUBRCUTINE RUSTC RCSTCOO6 
INTEGER A(22C5),INPUT(16C) »NREM(75) RoSTOCO7 
COMMCN Ay INPUT, NREM ROSTODOOR 
EGUIVALENCE (NPRCB,A(214G)) RCSTOCG9 
EQUIVALENCE (MAXRT,INPUT(144)) RDSTOOLO 

c RCOSTOC1I1 
C----- THIS RCLTINE READS THE FILE MADE FRGM THE STANCARC FOR THE ROSTOC12 
C PROBLEM THE STUCENT IS ATTEMPTING. “RCSTOOL3 
c RUSTOG14 
1 MAXRT = 500C RDSTOO15 
IF(NPRCB) 54542 RDSTOC16 

2 TFUNPRCB-24) 10,1C,5 _ ROSTOCLT 
500 gl =l, 163 RCSTOO18 

8 INPLT(I) = Cc - RDSTDC19 
NPRCB = 0 ROSTDC20 
RETURN RDSTOC21 

10 READ(1L*NPROB) INPUT RDSTDC22 
RETURN ROSTOC23 

END RCSTOC24 

// DuP " ROSTODO25 
*DELETE — RCSTC ROSTO026 
*STORE © wS UA ROSTC RDSTOC27 
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oO. 
ERIC 


ry 


// JOB 

// Oup 

// FOR 

* LIST ALL 

*EXTENCED PRECISICN 

*ONE WORD ENTEGERS 
SUBROUTINE ROR6C 
INTEGER KBUFF(7) 


INTEGER LOC(2C0C),XR(18),AREG(2), TAG, ADCR, EA, OPCCCyNEUMC (2) 


INTEGER 1OBUF(80),ERRCT(5) 

INTEGER TABLE(16) 

INTEGER LOC1(1C00},L0C2(1000),XR1L(9),XR2(9) 
INTEGER ERRGR 


RCR6OCCL 
RGR6OCO02 
RCR6GCO3 
RCR60C04 
RER6O0CO5 
RDR6COC6 
RCR60C07 
RCR60CO8 
ROR6OCO9 
RCREOC1C 
ROR6OCLIL 
RCOR6CC12 
RORECCLS 


COMMON LOC,XRyAREG,ILSIGN, INSTR» TAG, ACCR+EA, CPPOD RENE: IOBUF,ERRCTRCOR60C14 


COMMON NI3NC,TABLE 

EQUIVALENCE (LOC(L) LOCL(L) ),(LEC(10C1) ,LECZt1)) 
EQUIVALENCE (XR(1),XR1L¢1))5(XR(1L0),XR2(1)) 
EQUIVALENCE (ERRCT(1)sERROR?} 


ROUTINE TO SIMULATE READ INSTRUCTICN 
ON RETURN--ERRCR IS SET <1 LF ASTERISK CARC REAG 
¢ IF NO ERROR 
+1 IF INVALIC DATA 


OR IF INVALID OATA [S READ. 


aAagAaAAgAAAAN 


ERRCR=0 
READ(NI 11) (TOBUF(T),1=1,48) 
LL FORMAT(16A1,32A2) 
; NOCOS=NOCODS+1 
C RETURN I[F..MONITCR(ASTERISK} CARC. 
TF ( TOBUF{1L)-TABLE(15}) 30,20,30 
20 ERRCR=(-1) 


RETURN . 
Cc CONVERT 7Al TOD 711. 
Cc TEST FOR CONVERSION ERROR. 


30 DO 21 N=12,14 

TFC TABLE(NI-IGBUF(1L)) 21525321 
21 CONTINUE 

IF ( TABLE (11)-[0BUE(1L)) 22523,22 
az ERRGR=1 

GO TO 5C 
23 KBUFF(L)=-1 

GD TO 26 
25 KBUFF(1)=1 
26 OD 29 N=2,7 

DO 28 J=1,1C 

eee renee he 28429,28 
28 CONTINUE 


GO TQ 22 
29 KBUFFIN) = J-l 
Cc PACK 7I1 INTO 213 AND STORE INTG PSUEDO-CCRE, 
LOCL(EA} = ((KBUFF(2)*10+KBUFF(3))*LO+KBUFF (4) ) *KBUFF OL) 
LOCZ(EA) = ((KBUFF(5)*10+KBUFF(6))*104+KBUFF(7))*KBUFF(1) 
50 RETURN 
ENO 
// ouP . 
*DELETE ROR60 
*STORE WS .UA RODREO 
87 


PSUEDO-CORE LDCATIDN IS NOT ALTEREC IF ASTERISK CARC IS REAL, 


RCR6OCLS 
ROR6OC16 
RCR6O0C17 
RCR6OCLE 
RCR60C19 
RER60C20 
RCR60C2Z1 
ROREOC22 
RCR6OC 23 
RCR60C24 
RCR6O0C25 
RER6OC26 


‘ROROOC 27 


RCR60C28 
RER60C29 
RCR60C30 
RCR6OC3L 
RCR6CC32 
ROR60G33 
RCR60C34 
ROR60635 
RORG6OC36 
RORGOC37 
ROR60C38 
RCR6EOC3S9 
RCR6O0C4C 
ROR60C41 
RCR60042 
ROR&0C43 
RCR60044 
RCER60045 
RCR60046 
ROR6OC47 
RCR60C48 
ROR60C49 
ROR60050 
ROR6OC5L 
ROROGC52 
ROR6G053 
RER6QC54 
RER6O0C55 
ROR60056 
RCR60057 
RCOR60C58 
RDR60C59 
RCR60C6C 
RDR60G61L 


<) 


ERIC 


JA FuirText Provided by ERIC 


. 


en 


wer 
f/ se 


tT FOR 


sEXTENCED PRECISICN 
*QNE WORD INTEGERS 


SLEST ALL 
SUBRGUTINE CECEB(REG,VECTR) 
INTEGER REG(2Z),VECTR{ 7) DATA, BUF 
INTEGER CORE(2C20),RCORE (94), TABLE( 14) 
COMPEN CGRE,ISIGN,»RCORE , TABLE 
C---- ‘ 
1 vECTR(12} = TABLE(12) 
OATA = REG(1) 
l=¢éz 
CO 60 J=ly2 
IF(DATA) 10,25,25 
10 VECTR(1} = TABLE(11) 
DATA = -DATA 
25 t = 100 
CO 5C K=1,3 
BUF = GATA/L 
IF(BLUF~9) 30,730,100 
30 VECTR(1) = TAGLE(BUF+L) 
CATA = CATA - BUFFL 
b= t/1C 
50 rs I+ 
6C DATA = REG{(2) 
RETURN 
100 CO 110 I=2,7 
LLC VECFR(T) = TABLE(15) 
RETURN 
END 
7/ DuP 
*DELETE DECEB 
*STORE hS UA ODECEB 


88 


DECEBCOL 
DECEBCO2 
DECEBOO3 
DECEBCO4 
DECEBOOS 
DECEBCU6 
OECEBCO7 
DECEBQC8 
DECEBCO9 
DECEBC10 
DECEBOLL 
DECEBC12 
DECEBC13 
DECEBC14 
DECEBO1S5 
DECEBO16 
DECEBO1? 
DECEBOL8 
DECEBO19 
DECEBC2C 
DECEBC21 
DECEBO22 
DECEBG23 
OECEBG24 
DECEBG25 
DECEBG26 
DECEBO27 
DECEBC28 
DECEBC29 
DECEBO30 
DECEBO31 
DECEBO32 
DECEBO33 
DECEBO34 


o_. 
ERIC 


// JCB 
47 DuP 
*DELET 
// FOR 
*EXTEN 
*ONE bh 
*L IST 


25 


30 


32 
33 
35 


40 


// DUP 


ChADDOOL 

DwACDOO2 

E DnA0dD CwACDCC3 
DWADDCO4 

DED PRECISICN DwACOCOS 
ORD INTEGERS DWAULCO6 
ALL DWADDCOT? 
SUBRGUTINE CWACC(A,B1C, ICVFL) : -DWACDCO8 
INTEGER A(2)18(2) »C(2),CARRY _ DWADDCOS 
INTEGER LOC (20CQ),XR(18) sAREG(2), TAG, ADCR1 EA ,OPCOC yNEUMG( 2) DWACDOLC 
INTEGER IOBUF(8C},ERRCT(5) DWADDCLL 
COMMON LOC,XRyAREG,I SIGN, INSTR» TAGs ADCR, EArCPCCO ,NEUMO? LOBUF,ERRCTOWADDCL2 
THIS RCUTINE PERFGRMS COUBLE-WCRC CECIMAL ACCITICN DWACDCL3 
SUCH THAT C = A+B .  DWACDOL4 
IUVFL = 0 . OWADOCLS 
C(2) = A(2) + B(2) DWwADDCLE 
CARRY = C(2)/10C0 DWADDCLT 
c(2) = Cl2) - CARRY*1000 DwACDOL8 
Cll) = ACL) + BCL) + CARRY DwACDC1O 
CARRY = C(1)/1000 . OwAcCDO20 
C(L) = C(L) - CARRY*100G DWACDO21 
TF (CARRY) 25,30,25 ODWACDO22 
{OVEL = 1 ; DWACDO23 
ISIGN = CARRY DnACDO024 
RETURN OWADDO2S 
IF NO CARRY CHECK WHETHER SIGNS OF UPPER + LOWER HALF CISAGREE. OWACDO26 
(IF CARRY A + B’MUST HAVE HAC SAME SIGN.) DWADDC27 
Mz] OWwAGDC28 
T = (CCLI/TABS(COL)))*(C(2)/TABS(C(2))) - DwACDC29 
TFC EL) 3294024C DWADD030 
IF(C(L)) 33740935 OwADD031 
M= -2 OWACDO32 
CL) = CUL)-M : DWADDC33 
‘€(2) = C(2) + M*1000 DWADDC34 
CALL LATCHI(C) 5 ; OWACOG35 
RETURN ; DWACD036 
END OWACDO37 
DRADDO38 

mS UA OhACD DWADDC39 


*STGRE 
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7 HARADA Tyree ree nner Nene pen erent ne rT Re AR eaten one ee i me 


2... 
ERIC 


4/ JOB 


ocls 


// FOR 

*LIST ALL 

*EXTENCED PRECISION 
*QNE WORD INTEGERS 


SUBROUTINE LATCH(REG) 
INTEGER REG(2) 
INTEGER CORE(2C20) 
COMMON CORE,ISIGN 


Cc 
Cc THIS ROUTINE SETS THE SIGN INDICATOR, ISIGN, 
Cc ACCORDING TO THE SIGN OF THE DATA IN A. 
Cc 
Cc EXAMPLES eee 
Cc REG(1) REG(2)  ISIGN 
Cc -999 000 -1 DATA IS NEGATIVE 
Cc. 000 -999 -t DATA IS NEGATIVE 
Cc 000 ooG ie) CATA IS ZERQ 
Cc aoc 999 1 DATA IS POSITIVE 
Cc 999 000 1 DATA IS POSITIVE 
Cc 
IF ( REG(L} ) 30,20,50 
20 IF ( REG(2) ) 30,40,50 
30 ISIGN=-1 
RETURN 
40 ISIGN=0 
RETURN 
50 ISIGN=1 
RETURN 
END 
// bUP 
*DELETE LATCH 
*STORE WS UA LATCH 
90 


TO -1,0y+2 


LATCHOOL 
LATCHCO2 
LATCHCC3 
LATCHCO4 
LATCHOOS 
LATCHOO6 
LATCHCO7 
LATCHCO8 
LATCHOO9 
LATCHCLO 
LATCHO1]1] 
LATCHOL2 
LATCHCL3 
LATCHO14 
LATCHOLS 
LATCHCL6 
LATCHC17? 
LATCHC18 
LATCHC19 
LATCHO20 
LATCHC21 
LATCHC22 
LATCHC23 
LATCHC24 
LATCHO25 
LATCHO26 


-LATCHC27 
- LATCHG28 


LATCHC29 
LATCHC3C 
LATCHC31 
LATCHC 32 
LATCHC33 
LATCHO34 


1 17 JOB INTFGCS) 


an 4/ % INTFGCO2 
// * PROGRAM TO INITIALIZE STUCENT GRACE FILE ANG CLEAR STANCARD FILE. INTFGCO3 
7- // * INTFGCO4 
i . // OUP INTFGCOS 
1: *DELETE INTFG INTFGCO6 
// FOR INTFGCC7 
_ *NAME INTFG : INTFGCCH 
i; *ONE WORD INTEGERS INTFGCOS 
i *EXTENCED PRECISION INTFGCLC 
i” #LIST ALL INTFGCAL 
*ITOCS(DISK) INTFGC12 
INTEGER ONE(160)97TWC(40) - INTFGC13 
DEFINE FILE 1(249160,UyNXREC) INTFGC14 
at DEFINE FILE 2{800.409U,NXRCC) INTFGCLS 
1 CO 10 I=1,160 INTFGC16 
_ 10 ONE(I) = 0 INTFGCL7 
( DO 20 I=1140 INTFGC18 
| 20 TWO(IT) = 0 INTFGC19 
s NXREC = 1 INTFGC2C 
NXRCC = 1 INTFGO21 
TWHO(1) -= 1 ; INTFGG22 
WRITE(2*NXRCC) THO INTFGG23 
TWO{1) = 0 INTFGO24 
DO 30 121,24 INTFGC25 
30 WRITE(LtI) ONE INTFGC26 
DO 40 1=2,800 INTFGG27 
40 WRITE(2*NXRCC) TWO - INTFGC2B 
CALL EXIT ; INTFGC29 
END INTFGC3C 
// XEQ t ol INTFGC3L 
*FILES(1LeFSTOG) »(2~¢SMSTU) INTFGC32 
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37 


o_ 
ERIC 


‘/ SLB 
* 


7/ * PROGRAM TC REAL A SET CF CATA FCR TRE STUCENT PRCGRAMS TC 
7/ * INTG & FILE ( CNE Cr 12.) 
// * 
7/7 FUR 
SNAME INDFG 
#1OCS(CARU,CISK,14C3 PRINTER) 
*EXTENCED PRECISICN 
%ONE WORD INTEGERS 
FLIST SOURCE PROGRAV 
sLEST SUBPRCGRAY NAMES 
*LIST SYMBCL TABLE 
INTEGER BLFFI(2),OBUFF!~) 
INTEGER A(2165)¢INPUT(160),NREM(77),GATA(Z12) 
INTEGER DATA1L(106),DATA2(1C6) 
INTEGER TASLE(16} . 
INTEGER ERR,EA 
COMMUN A, INPUT,NREM,DATA 
EQUIVALENCE (TABLE(1),A(2116)) 
EQUI VALENCE(LCOCLI,AC1)},(LCC12,A(1001)} 
EQUIVALENCE (NI,A(2114)3,(0NC,A02115)) 
EQUIVALENCE (ERR,A(2109))1(bAeA( 2025) ) 
EQUIVALENCE (DATAL(L) ,OATA(L)),(DATA2(1),CATACIC7)) 
CEFINE FILE 5(12,106,U,NXRODC) 
l NIe2 
NO=5 
REAC(NI,13) TABLE,NCTST 
13 FORMAT{16Al1,i1) 
CoO — f=1,212 
8 CATA (1) = G 
EA=1 
CO bd T=1,106 
2 CALL RORGO 
IFCERR) 315423 
3 PAUSE 7CC09 
GU TC 2 
4 CATAL(T}=L0C11 
CATAZ(I}=LOCL2 
BUFF(1) = LGC1L 
BUFF(2) = LOCL2 
CALL CECEB(BLFF,OBUFF) 
WRITE(NCe 11) 1 OBUFF 
11 FORMAT(LH 113,3Xs7ALl) 
5 CONTINUE 
WRITE(S*2*NCTST-1) DATA 
STOP 7777 
END 
// XEQ Lt Ol 
sFITLES(5,SIMOT,O015) 
O1L23456785— ++% 2 
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} 
GO.) 


” 
x 


*REAC! 


INCFGCCL 
INDFGCO2 
INDFGCC3 
INDFGCO4 
INDFGCOS5 
INDFGCO6 
INDFGCO7 
INGFGCOB 
INDFGCO9 
INDFGGLO 
INDFGC1L 
INDFGCL2 
INDFGEL3 
INDFGC14 
INDFGC15 
INCFGO16 
ENDFGCL? 
INDFGC18 
INDFGC19 
INDFGC20 
INOFGO21 
INDFGC22 
INDFGC23 
INDFGO24 
INDFGO25 
ENDFGO26 
INDFGC27 
INDFGO28 
INDFGO29 
INDFGO30 
INOFGO31 
INOFGG32 
INDFGC33 
INDFGO34 
INDFGO35 
INDFGO36 
INDFGG37 
INDFGO38 
INOFGC39 
INDFGC40 
INDFGO4L 
INDFGC42 
INDFG043 
INDFGO44 
INDFGO45 
INDFGO46 
INDFGC47 
INDFGO48 
ENDFGC49 
INDFGO5G 
INDFGO51 


expen lgtan sarees 


Pa esa Me 


COTES? 


+000623 
-003547 
+3545C1 
-0000C6 
4062346 

oooccc 
4012345 
-001278 
+024C35 
-000023 
#850043 
#012005 
+10000¢ 
4233245 
-0C0156 
-75100C 
-000245 
#120345 
-003486 

ooaocc 
-001597 
4043189 
-000005 
-100035 
+145508 

oo000c 
-000135 
+00002C 
-000009 
+000045 
-000054 
+003498 
+000009 
-120005 
-000010 
+000005 

000000 
+000501 
+000001 
+010101 
-100045 
-000753 
-000005 
+000348 
+0000C8 
-156247 
-036475 
-10202¢ 
#012045 
+000125 
-010000 
-500134 
+000010 
+000045 
-245365 
+360000 
+000453 
+000125 
-000063 
+003941 
+987654 
-853240 
+500000 
+000283 
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DATA2CO1] 
DATA2CC2 
DATA2CC3 
CATA2ZCC4 
DATA2ZCC5 
DATA2CC6E 
DATA2CO7 
DATA2CO& 
DATA2CG9 
DATA2ZCIC 
CATA2CLIL 
DATA2C12 
CATA2C13 
DATA2C14 
DATA2ZCLS 
DATA2C16 
CATA2C1?7 
DATA2C18 
DATA2C19 
DATA2C2C 
DATAZC21L 
CATA2C2Z2 
DATA2C23 
DATA2C24 
DATA2C25 
CATA2C26 
CATA2C27 
DATA2C28 
DATA2C29 
DATA2030 
DATA2C31 
DATA2C32 
DATA2C33 
DATA2034 
DATA2G35 
DATA2C36 
DATA2037 
DATA2C38 
DATA2C39 
DATA2C4C 
DATA2C41 
DATA2C42 
DATA2C43 
DATA2C44 
DATA2G45 
DATA2046 
CATA2047 
DATA2C48 
DATA2C49 
DATA2C50 
DATH2C51 
DATA2052 
DATA2C53 
DATA2C54 
DATA2655 
DATA2C56 
DATA2C57 
DATA2C58 
DATA2C59 
DATA2C60 
DATA2Cél 
DATA2C6E2 
DATA2C63 
DATA2C64 


-004319 
-001800 
-00440C 
-000003 
-000051 
-000051 
+000123 
+000045 
+000123 
-001276 
-001357 
+000252 
-000234 
-000005 
-000453 
#000230 
+000015 
+000456 
+499999 
-999910 
+888889 
-000001 

oonoce 
+120450 

000000 
-11200¢ 
+100001 
+000008 
+102250 
-000005 
+000300 
-000060 

000000 
-000245 
+000035 
+000202 
+0000C5 
+000023 
+000008 
#000025 
+000010 
+000014 
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DATA2C65 
DATA2C66 
DATA2C67 
DATA2068 
DATA2C69 
DATA2C7C 
DATAZC71 
DATA2CT2 
DATA2073 
DATA2CT4 
DATA2CTS 
DATA2076 
DATA2GT? 
DATA2078 
DATA2079 
DATA2CEC 
DATA2081 
DATA2C&2 
DATA2C83 
DATA2084 
DATA2C85 
DATA2C86 
DATA2C87 
DATA2088 
DATA2C&9 
DATA2C90 
DATA2091 
DATA2092 
DATA2C93 
DATA2094 
DATA2095 
DATA2C96 
DATA2C97 
DATA2C9E 
DATA2099 
DATA2100 
DATA2101 
DATA2102 
DATA2103 
DATA2104 
DATA2105 
DATA21LC06 


PASE 1 
7/ JOB GC26 0015 0015 
LOG ORIVE CART SPEC CART AVAIL PRY CRIVE 
oooc 0026 0026 oocl 
oocl ocis5 0015 oocc 
// ASM 
se TST 
SOOO IOI IOI IOI OCI I IO oi go goiaii gaia goiak iat soak AM 0005 
* * AM 0010 
* AM (ASSEMBLER MONITOR) * AM OOLS 
* * AM 0020 
SOO OU OOO IOI OIG IO IO OI a iak tok gk giaa AM 0025 
C122 015c0CcGO ENT AY, AM IS CALL ENTRY PDINT AM 0030 
SOO GO OOO OOO IO OO IOI IO og gai gai ggasi AM 0035 
coco ococ BAMS BSS £ QO BEGINING DF AMS AM 0040 
CGOO 31 04C6631A3 IGARL OSA DATFT DISK PARAMETERS -- LENGTH AM 0045 
* *OF FILE IN wCRCS, SECTOR AM 0050 
* *ADCRESS», ANC ND DF SECTORS. AM 0055 
c003 0c4¢G GTBL BSS 64 GARBAGE TABLE IS 64 WORCS AM 0060 
C043 oc4ce ATB BSS 64 ADDRESS TABLE IS 64 WORES AM 0065 
SUC OOOO IO IOI ORIG GI II IOI I aOR ggg ga AM 0070 
C084 0coo TINST BSS E QO TABLE DF INSTRUCTIONS : AMNOO75 
C084 0 11C0 oc 41100 00000 WAIT AM 0080 
coss5 c 1lll oc 1111 GO TO CCMPUTE GRACE AM 0085 
0086 C 5700 oc 45700 ooo0l xID AM 0090 
C087 CC SBLF oc /9BDF STORE=L. STANDARD ADCRESSINGe. AM 0095 
C08s Cc acco oc /0000 00010 St AM 0100 
coa9 C acoo cc /0000 GD TG XEQ- HAS NO EA. F=SECRT AM OL1OS 
CO8A GC OCoG oc 70000 oooL1L SR AM 0110 
Cosp Cc ococd oc /0000 GO TO XEQ- HAS NO EAs F=SHCRT AM O1LS5 
cosc C occo oc /0000 00100 LOS AM 0120 
C080 0 oGcco oc 70000 GQ TO XEQ.- HAS ND EA. F=SEDRT AM 0125 
COsE Cc 57C60 oc 75700 0o01cl STS AM 0130 
CosF C SBOF oc /9BOF STORE=L.» STANDARD ADDRESSING. AM 0135 
coyxo C 22c0 oc /22C0 001LO WAIT AM 0140 
CO9L GC 2222 cc 12222 GO TO VALIC WAIT ROUTINE AM 0145 
Ca92 G_ 1100 cc 41100 OOlLLL WAIT AM OL50 
C093 G 11h) oc fill. GD TO CCMPUTE GRADE AM OL55 
C094 C 5760 oc 75700 01000 BSI AM 0140 
C095 C 9S8LF OC /S9BCF STORE=L. STANCARD ACORESSING» AM O165 
Cov6 C accce cc /0000 6100L BSC AM O170 
co97 Q@ acoc oc /0000 GG TQ: XEQ. AM 0175 
co9s 0 110C oc /1100 01010 WAIT AM 0180 
co99 Cc ol1lll oc 71111 GO TO CCMPUTE GRADE AM 0185 
CO9A G 1100 oc 41100 01011 WAIT AM 0190 
Co9p Cc 1111 OC 41111 GD TO CCMPUTE GRADE AM 0195 
co9c CC GcGCc P OC /0000 011C0C LCXx AM 0200 
Co9D CC Oc#es : cc /0088 GD TC XEGe EX- I[A,LONG IS EAw AM 0205 
CO9E C». 5500 cc 45500 OllLOL STX AM 0210 
CO9F C 9900 cc 79900 STORE=L.- STANCARD. EX- NC XRe AM O215 
COAO GC acaoc ele /00C0 01110 MOx AM 0220 
COAL C 3C38 cc 13038 (3=SPECIAL MGXLOQ)- AM 0225 
coA2 C 110c:. cc /1100 OL111 WAIT AM 0230 
COA3 G 111L cc 1111 GD TO CCMPUTE GRACE AM 0235 
CoA4 G: 4600 oc 14600 10000 A AM 0240 
COA5 C- &ACE cc “~-/ BACE STANDARC ACCRESSING. AM 0245 
COAG C 4606 : CC 14600 100CL Ao AM 0250 
95 


o_. 
ERIC 


PAGE 


COAT 
COA8 
COAg9 
COAA 
OOAB 
OOAC 
COAD 
QOAE 
COAF 
0oB0 
coBl 


00B2. 


00B3 
00B4 
COB5S 
0OB6 
OOB? 
00B8 
COB9 
COBA 
0OBB 
ooBc 
coBD 
OOBE 
OOBF 
aoco 
coc 
a0c2 
ooc3 


COCc4 
agc4 
gocs 
0océ 
coc? 
o0cs 
coc9 
COCA 
COCcB 
cocc 
oocn 


QOcE 
QOCcrF 
0000 
cool 
cad2 
co03 
0004 


go05 
COEB 


COF4 
QOFS 
OOF6 
OOF? 
QoF8 


oooo0oncnoocoo0ococondnoco0c0c00c0nconacoocoaa0n0a0oan 


aooaoo0o0o an0ooo0oo0o0o0ano 


[ol ell ell ol 


8ACE 
4600 
BACE 
4600 
BACE 
4600 
BACE 
4600 
BACE 
1100 
L111 
11C0 
1111 
460C 
8ACE 
46C0 
BACE 
5700 
9BOF 
5700 
9BDF 
4600 
8ACE 
4600 
8ACE 
4600 
BACE 
110C 
1111 


000c 
0000 
27C0 
0000 
8FG0 
acoc 
9700 
0000 
9FOO0 
ocoo 
A700 


acoc 
0c28 
oosl 
ocss 
oce9 
ocsD 
0091 


ao2c 
aole2 


Q3aC 
Q3AC 
Q3AC 
0276 
Q3AC 


oc 78ACE STANDARC ACCRESSING. 
CC 746C0 10010 S$ 

cc 7B8ACE STANDARC ACCRESSING. 
oc 44600 looll SC 

oc /BACE STANDARC ACCRESSING. 
- Oc 74600 1o1co FM 

oc /BACE STANCARC ACORESSING. 
oc /46CO lolcl C 

cc 78ACE STANCARC ACCRESSING. 
oc /11C0 10110 hAIT 

cc /1111 - GO TG CCMPUTE GRACE 
oc 41100 LOLLL WAIT 

cc 41111 GO TO CCMPUTE GRACE 
oc 74600 liooo LC 

oc /BACE STANDARC ACCRESSING. 
Cc 746C0 llocl tcc 

cc _ JBACE STANDARC ACCRESSING. 
oc 45760 11010 sTCc 

oc /9BCF STORE=1. STANCARD ACORESSING. 
oc 45760 11011 STO 

cc /SBCF STORE=1. STANCARC ACDRESSING. 
oc 44600 11100 AND 

oc /BACE STANDARC ACCRESSING. 
oc 14600 11101 CR 

cc /BACE STANDARC ACCRESSING. 
oc 74600 11110 EGR 

oc /BACE STANDARC ACCRESSING. 
oc /1100 LL1iL hAIT 

oC /LL11 GO TO CCMPUTE GRACE 


BECO I I I GRIGIO I UI Ra RRR RIOR a a a RR i a a a ke 
ToccB 3SS E oO TOCC(S) TO SENSE DEVICE 


cc 0 UNUSEC 

oc /2700 CPU DISK 

oC 0 UNUSEG 

oc /8F00 2310 FIRST ORIVE 

oc 0 UNUSEC 

CC - /9700 2310 SECOND CRIVE 

Oc 0 UNUSEC 

oc /9F00 2310 THIRD CRIVE 

oc 0 UNUSEC 

oc /A700 = 2310 FOURTH CRIVE 
SOI OR II IO I IR RR I gig gg gg gaia ge goik geage tee ate ae ae 
LIST OC 0 LIST CF MONITCR ENTRY PCINTS 

oc $PRET PRE-GP I/G ERROR TRAP 

oc $PST1 POST~CP I/G ERROR TRAP L i 

. OC $PST2 © PGST-CP I/G ERROR TRAP L 2 

oc $PST3._ POST-CP I/O ERROR TRAP L 3 

oc $PST4 POST-GP I/C ERROR TRAP L 4 

oc $STCP PROGRAM STGP KEY TRAP i 5 
2 RRR IR RII ROR Rg gig gigi gage gg gaa ke te ae age ge age ae ae 
MBUF OMES 'R "16XS ET MOCE Sh TC? 

DMES INT RUN ‘R'E 
ORI IR RR RRR IO RR Raa iO RO Ri RR RR Rg gag gk ak ge a ae a 
TADOR OC CGA ADDRESS WITHIN COMMCN 

ac CGA ACORESS WITFIN CALL TV 

“DC CGA ADDRESS WITHIN FLOATING ACC 

oc N414 ADDRESS WITHIN LIBF TV 


oc CGA ATORESS WITHIN UNUSED CORE 
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102. 


0255 
0260 
0265 
o27¢ 
0275 
028C 
0285 
0290 
0295 
0300 
0305 
0310 
0315 
0320 
0325 
0330 
0335 
0340 
0345 
0350 
0355 
0360 
0365 
0370 
0375 
0380 
0385 
0390 
0395 
0400 
0405 
0410 
0415 
0420 
0425 
0430 
0435 
0440 
0445 
0450° 
0455 
0460 
0465 
0470 
0475 
0480 
0485 
0490 
0495 
0500 
0505 
0510 
0515 
0520 
0525 
0530 
0535 
0540 


COFS 1 Q3AC 

COFA L 0276 

F COFB L O3AC 

COFC L 0273 

COFD 2 0260 

= COFE 1 O3AC 

i COFF 1 o2GC 

ClOC 1 0362 

clcl Ll o2cc 

C102 1 0340 

“ cl03 2 0322 

[ c1C4 1 O3LF 

3 C105 1 033C 

Chloé 1 O31F 

clC7 1 020C 

CLC8 1 O2EF 

C109 1 OZEB 

C1OA occc 

clcA Cc coo 

| clOB 1 occc 

cloc C oc79 

cico C acoo 

CLCE 0 Ocoo 

| cLOF ¢ occe 

C110 1 coc 

GL1L CG OCCi 

| CLI2 © OCCA 

O113 0 occo 

0114 ococ 

C1l4 c ococ 

i cil5 * occe 

Clif § OCC6 

= Cll: © occe 

o1.8 > Iccc 

“4 Cli: ° o90cC 

[, Olla uv acco 

! CLIB C 0406 

Cl1C ¢ ocoo 

2 clic 0 occe 

[| CLIE 0 O00C4 
| 

a CLIF 1 0406 

c120 C 0000 

[ 012i 0 00c0 
ql 
f! 
i 

ay ¢122.0 coo 


cc CGA ACCRESS wWITRiN ILS AREA 

cc N414 ACCRESS WITHIN SUBRCUTINES 
cc CGA ACCRESS wWITFIN AMS PROGRAM 
cc N410 ADDRESS WITHIN MAINLINE 

GC N402 ADDRESS WITHIN RESICENT MCN. 
oc CGA ACORESS WITHIN FIRST FOUR W&CS 
cc XEC EA WITHIN COMMON 

cc N510 EA WITHIN CALL TV 

cc XEQ EA WITHIN FLOATING ACC 

cc N507 EA WITHIN LIBF TV 

oc N504 EA wITHIN UNUSEC CDRE 

Oc N503 EA WITHIN ILS AREA 

cc N506 EA WITHIN SUBROUTINES 

oc N503 EA WITHIN AMS PROGRAM 

oc XEC EA WITHIN MAINLINE 

oc N501 EA WITHIN RESICENT MONITOR 
cc N500 GA WITHIN FIRST FOUR WORCS 


SOR Oi RI totogi zo gi ii tio RIO oti iii ai i i i ii ia goiai i ak. 
CPARK BSS E Q DISK PARAMETERS 


oc 0 : REAC CF DF CISK INTO BUFFER 
oc TOARL *LOCATEC AT IOARI 

Dl21 oc 121 CONSTANT 

PRONG CC wank PROBLEM NUMBER 

STUNC CC a—* STUCENT NUMBER 

* *DUTSICE RESICENT MCNITOR 

STAND CC sh STANDARC PRCBLEM INCICATCR: 

ABAMS 0C BAMS ACORESS BEGINING AMS PROG. 

EONE CC 1 SONSTANT 

O10 oc 10 CONSTANT 

2 OROROR RORIOR oobi OR I Ru i ii um i i gai tOi IOs i gotgog igo gic gc 

LCCRE CC 4% LENGTH CF CORE ; 

TaS BSS 0 TABLE DOF LENGTHS OF CORE 

LCOMM CC bated LENGTH CF CDOPRPCN 

LCLTV CC 4—% LENGTH CF CALL TV 

LFAC OC 6 LENGTH GF FAC AND INDICATORS 

LLBTV OC 4—% LENGTH CF LIBF TV 

LGAR GC a—% LENGTH OF UNUSEC CORE 

LILS CC bead LENGTH CF ILS AREA 

LSuB OC aok LENGTH CF SUBROUTINES 

LAMS OC EAMS-BAMS LENGTH OF AMS PROGRAM 

LMAIN OC a—k LENGTH CF MAINLINE 

LCRM OC ak LENGTH OF RESICENT MONITOR 
oc 4 LENGTH CF XR SECTION 


SEIOIOIO RRR i Oi I RRO IRR ROR In i i agg tag ag gag i ag cai afc ai a 


AEAMS DC EAMS ADDRESS OF ENC AMS PROG. 
SMALL OC 0 SMALLEST ACCRESS OF ILS 

EILS OC ss END OF [LS AREA 

3OIOROR ROR RIOR RO OR IOI ROI ROR OROIOR OR ORR ROR OR RO gg gOgC i ig acai ek 
ee % 
* (AM ENTRY POINT * 
% , % 


AAI I i toi io i i iO Sol i i RII i i mai i OI I i i Son sai got i io ig 
SOO IO iO toi I ii toi iar a i i i lair i i iol lai iui zaiai toiai ioiok tefogoak 
* TWO PARAMETERS -= STUDENT NUMBER AND PROBLEM * 
* NUMBER ARE LOACED FROM THE MAINLINE SO THEY * 
* CAN BE LATER PASSED TO THE CUTPUT PROGRAM. * 


SELES EEREAE SREY ES ERERESE SE ESNERSS ESS EEENS YS EREE YES 


AM oc ak ENTRY PCINT FOR AM 


97 


1 0545 


0550 
0555 
0560 
0565 
0570 
O575 
0580 
0585 
0590 
0595 
0600 
0605 
0610 
0615 
0620 
0625 
0630 
0635 
0640 
0645 
0650 
0655 
0660 
0665 
0670 
0675 
0680 
0685 
0690 
0695 
0700 
0705 
0710 
o715 
0720 
0725 
o730 
0735 
0740 
O745 
0750 
0755 
0760 
0765 
9770 
O775 
780 
o785 
0790 
0795 
0800 
0805 
0810 
0815 
0820 
0825 
0830 


PAGE 


0123 
c125 
0127 
0128 
012A 
0128 
0120 
O12E 
OL2F 
0130 


t 
i 
: 
i 
i 
i 
j 
i 
H 
i 


| 01321. 


0133 
0134 
0135 


i 0137 
0138 


Q13A 
013¢ 
O13E 


O13F 
0141 
0142 
0143 


0145 
0147 
ol4é 
CL49 
C14B 


65800122 
c5800000 
OCES 
4C0802130 
SCE7 
4C300130 
COOF 


- 9OE2 


4838 
1610 
84cqq0gd0l 
1800 
C007 


, OCocacadd 


C802 


440000F2 


44000395 
—5800C01 
ooodo 


c58o000l 
Docc 
7102 
600001F3 


C40Q000E 


OOcB 
90C8& 
04000240 
66800078 


LOX Il AM LOAC XRi WITH ML ACCRESS 
tO 11 0 LCAC FIRST PARAMETER 
sTo PRONO STORE AS PRCBLERW NUMBER 
BSC L WROPN,+ GO TG WRCPN IF ZERC OR NEG 
Ss 010 SUBTRACT TEN 
OSC t WROPN,Z- GO TC WROPN IF POSITIVE 
to PRONO LOAC PRCBLEM NUMBER 
$ EONE SUBTRACT ONE 
.BSC +Z- SKIP UNCONDITIONAL 
WROPN SLA 16 CLEAR ACC TO ZERO 
A tL IGAR1+1 AOC SECTGR ACCRESS 
RTE 16 PLACE ACC INTC ExT 
£0 0121 LOAG 121 ; 
STO t  IOAR1L STORE AS wC CT ANC SECTOR 
* *AOCRESS FOR CISK REACT 
Lco CPARM LOAC CISK PARAMETERS : 
BSI bt o2z000 GO TO OFSK RCUTINE TO REAC 
* *121 WwOROS INTO I[OAR+2 
BSI L- REAC REAC FROM BiT SW INTO ACC 
AND 121 LOGICAL ANC SECONO PARAPETER 
sta STAND STORE AS, STANCARO INCICATCR 


NOTE — [IF THE BIT SwKITCKES 
*WERE ALL UP, ANO THE ST. 
*NUMBER WAS ~iy THEN THIS IS 
*A STANDARC PRCBLEM .« 

Lo Ill LOAC SECONO PARAMETER 

STO STUNO STORE AS STUCENT NUMBER 

MCX 12 MOCIFY XR1 BY 2 

STX Ll AMSR+1 STORE XRi AS RETURN AOCRESS 

POTEET ESLELELSLELE LOTTE ESE EE RT SES EET R EEE LE EE Se 


eee Tt 


* * 
* INITIALIZE LENGTH VECTOR * 
* * 


PTT TT TTT TTT ETT TTT TTT TTT TLLELISTLLOCCCLLLLLLL el. Sf) 
* THE VECTOR BEGINING AT TBS IS INITIALIZED FOR 
* THE PARTICULAR CCRE LOAC. THIS VECTOR GIVES 
* YHE LENGTHS OF THE O[FFERENT PARTS OF THE CORE 
* LOAD FOR USE LATER IN THE PROGRAM IN GIVING 
* THE EFFECT OF MEMCRY PROTECT FOR CERTAIN OF 
* THESE SECTICNS OF CORE. THESE SECTIONS ARE 
* COMMON, CALL TV» FACy LIBF TV, UNUSED CORE, 
* ILS AREA, SUBROUTINES» AMS PROGRAM, MAINLINE, 
% RESIDENT MONITOR, ANC INDEX REGISTER AREA. % 
TT ETTCLICLOE EC LISC©COS©OOS£O£OSSLO£ SELES SEER EER ELLE FE 
PTT TTOCSCCLSLOCSL£CLLOSCOSLLSLS OLE ETE EES ESTERS EES RE 2S oS 
* INITIALIZE LENGTH OF LCMSK * 
TTT ETCSCCLSOSSOLOSSLO CLE LLL ET STE TES SER EE TEL EE OE Soe 
* A MASK IS PREPAREO CONTAINING BITS SET IN EACH * 
* POSITION WHERE BITS CAN CCCUR IN AN ACCRESS 4 
* ON THE BASIS OF THE LENGTH OF CORE. THEN * 
% I[NOEX 3 IS TESTEC. IF IT JS NEGATIVE, THERE * 
* IS NC LIBE TV CR FAC (FLCATING ACC). 
SRO ROR Ri tO Rai RI IO IR ag gai gai i ge ik i get a ee i a a ie ae ae 

LO L SCORE LOAC LENGTF CF CORE 

STO LCORE . STORE AS LENGTH OF CORE 

s EONE SUBTRACT ONE 

STO Lt LCMSK STORE AS LEN. CCRE MASK 

LOX [2 $WRDL LOAC LOACING ACCR. CORE LOAC 


98 


104°: 


RRR HH He 


0835 
0840 
0845 
0850 
0855 
0860 
0865 
0870 
0875 
0880 
08a5 
0890 
0895 
0900 
0905 
o9o1c 
0915 
0920 
a925 
0930 
0935 
0940 
0945 
0950 
0955 
0960 
0965 
0970 
0975 
a980 
0985 
0990 
0995 
1c00 
1005 
1010 
1015 
1020 
1625 
1036 
1035 
1040 
145 
1050 
1055 
1660 
1065 
107¢ 


1075 


1080 
1085 
1090 
1095 
11¢0 
1105 
1110 
1115 
1120 


GU55 
0156 
C157 
0158 
C1SA 
0158 
CL5C 
O15E 
O15F 
cLél 
ClLé2 
C164 
0165 
C167 
0168 
C169 


C16A 
C16B 
c1éc 
0160 
C1G6E 
CL6F 
0170 
0171 
Cl7v2 
C173 
C175 
C177 


C179 
O17A 
Ci7B 
ci7c 
c170 
CL7E 


- 


-—- —-— =— 


ecdc0co0carn0onnana0on0a 
i 


OaANAANAGMAARAMAAAAO 
— 


gQ0aqg000 


04C003C8 
4C28016A 


COBC 
9CBC 
920B 
0400036E 
C20A 
8C50 
9400036E 
0068 
8400036E 
8C49 
04000360 
CGAE 
9400036D 
SCAC 
DGAC 
7COF 


C28 
903F 
0208 
DCAT? 
1010 
OCA? 
OCAS 
CCAl 
9201 
94000115 
04C00360 
0400036E 


CC33 
B2c9 
9208 
OCA3 
OCA3 


1 040003A8 


STX 2 WROL STORE AS LOADING ACCR. 

LO X2 'CMON LOAC LENGTH OF COMMCN 

sto LCOMM STORE AS LENGTH OF COMMON 

Lo X2 "XR3X LOAC PRGPER VALUE XR3 

STO -L SPXR3+1 STORE AS PROPER VALUE XR3 

68SC LE NLBTVsZ+ GO TG NG LI@F TV IF MINUS 
OOOO IO IOC IOI IOC IO II OCC I IO III RIOR III Ro kc i ig a x 


* INITIALIZE LENGTH OF LIBF TV FOR XR3 POS. * 
BOIOIIOI RI IOI IO RI II II ROR RO I ROR RO Roi 2a aa 2 ago a a Roa IOI IOs i i i 
* OETERMENE LENGTH OF LIBF TV, CALL TV, AND * 


* FAC. CETERMINE BEGINING OF CALL ANC LIBF TV. * 
SIO IRI I IOI I OIC ROI II OI iO Ig gg i i RR gg i i ak ak 
LO LCORE LCAC LENGTH OF CORE 
S LCOMM SUBTRACT LENGTH OF COMMCN 
Ss X2 "TVW LENGTK GF TRANSFER VECTOR 
STO bt BLBTV STORE AS BEGINING CF LIBF T V 
LO X2 *XR3X LOAC PRCPER VALUE XR3 


A CON ADO CONST. FCR LIBF END 
S L  BLBTV SUBTRACT LCw LIBF ACCRESS 
STO LLBTV STORE AS LENGTH LIBF TRAN.VEC 
A L° BLBTV ADD BEGINING OF LIBF T V 
A 06 ADO SIX FOR FAC AREA 
STO Lt BCALL STORE AS BEGINING OF CALL TV 
Lo LCORE LOAC LENGTH CF CORE 
SL BCALL SUBTRACT BEGINING OF CALL TV 
s LCOMM SUBTRACT LENGTH OF COMMON 
STO LCLTV STORE AS LENGTH OF CALL TV 
MOX PLBTV GO TO PLBTV 
FCO RRO RO III IO IO ROI soi I gi ag I gg gi a gag lagi ak 
* INITIALIZE LENGTH OF LIBF TV FOR XR3 NEG. * 
SOIOIOIIOI OI OIOR IO IO RORIORIOROR IOI OR Og gig ROI OIRO g Rag ii i ai gc ii i age ak abr 
* OETERMINE LENGTH CF LIBF TV, CALL TV, ANO * 


* FAC. OETERMINE BEGINING OF CALL AND LIBF TV. * 
JOR SIEIEI IR SIS I GIS I SIDE IE IR ROI IR ROI IR ISI IOI OI IR IR 


NLBTV LE X2 'TVKC LOAC LENGTK CF TRANS VECTOR 


S 06 SUBTRACT SIX 

STO xX2 *Tvwe STORE AS LENGTH OF TRANS VECT 
sTO “CLTV STORE AS LENGTH OF CALL TV 
SLA 16 ENTER ACC wITr ZERO 

sto LLBTV STCRE AS LENGTH GF LIBF TV 
STO LFAC STORE AS LENGTH OF FAC 

LO LCORE LOAC LENGTH CF CORE 


s X2 'CMCN SUBTRACT LENGTE OF COMMON 
Ss tL LCLTV SUBTRACT LENGTH OF CALL TV 
-$TO L-L ‘BCALL STORE AS BEGINING OF CALL TV 


STO Lb BLBTV STORE AS BEGINING OF LIBF TV 
eT Te Te Tere eT TT re Terre Te eer ere rt er rT rrr rn 


* INITIALIZE AOORESS CF ENO CF CCRE LCAOD * 
OCC RR IOI III IC RIO toi 2 RI III I IOI OI Rg aI I I i i og 
* OETERMINE ENO CF CORE LOAC (IE. ENC OF ILS * 


* AREA) ANO LSE AS INITIAL BEGINING ILS AREA. * 
ECCI I IOI IOI COO I I IOIOI IR II III IOI OR IOI IOI OI gi i gg i 


PLBTV LD WROL LOAC LOACING ACOR CORE LOAC 
A X2 "WONT ADO LENGTH OF CORE LOAO 
s X2 'TVkC SUBTRACT LENGTK OF TRANS VECT 
STO SMALL STORE AS INITIAL BILS AREA 
sto EILS STORE AS.“END ILS AREA 


STO -L OMP+4 STORE AS PARAMETER FOR CUMP 


99 


‘105 


een Ee nT et ne pt EE Ned ee ALE AIMEE ee opntcen 


PAGE 


0180 
018i 
0182 


6183 
0184 
6185 


0186 
0187 
0188 
G189 
0188 
018C 
0180 
OLaF 
0190 
0191 
0192 
0193 
OL94 
0195 


01596 
ClL9o7 
0198 


aon 


ooo 


~ 


aooooo0c0ooonsonoon 
- 


ooo 


ccec 
8204 
DO9A 


coac 
9098 
0096 


6105 
C107 
9024 


4C280191 


Clo? 
9093 


4€100191 


C107 
DO8F 
TLFF 
T0F4 
ccsc 
908A 
0C84 


CC8A 
9088 
0080 


CECE ECCLES SCE LS SESS LCS STE L ECE EELS E ERLE LER ELE EE ES SE 


* INITIALIZE LENGTr OF RESICENT MCNITCR * 
SEG ORR RGR a ak aici a gk mage aoe Sok kaka 6 bak gag a dak 
* DETERMINE LENGTH CF RESICENT MCANITCR FROM * 


* BEGINING CF CORE TO ENC CF CORE IMMAGE HEACER. * 


PECL ELOLELLLLOLE SS ESE TEESE CTE S TESTE CEE EES EE ES ESE S| 


LO WROL LCAC LCACING ACCR. CORE LCAC 

A X2 'HWET ACD LENGTH CF CCRE IMM KEACER 

sto LCRM STORE AS LENGTH OF RES. MCN. 
PEC SELLE CSE SSCS ESSE ESS SEE SESS EES ES TE EES 2 EE SES 8 eB 
% INETIALIZE LENGTH CF MAINLINE * 


SEGURO ARG AGI IOC RIGIOIOR IIR IORI I RGR ROR Rao Re aoa a i ir 
* BPETERMINE LENGTH CF MAINLINE FRO¥ ENC CF CCRE * 


* IMAGE HEACER TO BEGINING OF AMS. x 
DIPEEISLLOLOLOCLOOCLCOCS CECE SCO£ COE EEE ETE PEEP E EEL 
LO ABAMS LCAC ACCR BEGINING CF AMS 
Ss LCRM SUBTRACT LENGTH CORE RES.MON. 
STO LMAIN STCRE AS LENGTH OF MAINLINE 
CEPI CELOOCLOOCCSCLOOCCOCL OCS CELE LET E ELE EE EEE EEE 
* INITIALIZE LENGTH OF SUBRCUTINES * 


LEP SES ECE SEE SCE LSS ELLE S SEES EELS LES ES EE LE LE SSE ES ES 
* DETERMINE @EGINING GF ILS AREA FRCM VALUES IN * 
* THE INTERRLPT TV THAT CG NCT LIE IN TEE * 
* PONITOR. DETERMINE TEE LENGTF CF SUBRGUTINE * 
* AREA FROM THE ENC OF AMS TC TKE BEGINING OF * 
* 
* 


THE ILS AREA. a 
PEP SES SESE SEES LESSEE SECC ELSES ECL L CEST EE Se LE Se 
- 40x 15 ENTER INDEX 1 WITH 5 
INL LD X17 LCAC VALUE FRCM INTER. TV 
s WROL SUBTRACT LCACING ACCRESS 
BSC L XXsZ+ GO TC Xx OW MINUS 
Lo XL 7 LCAC VALUE FRCY INTER. TV 
S SMALL SUBTRACT SMALLEST FCUND 
BSC L XXy- GG TG XX ON NCT MINUS 
Lo xh 7 LOAC VALUE FRCW INTER. TV 
STO SMALL STORE INTO SMALL 
XX MDX 1 =1 MODIFY XR1L BY -1leSKIP IF ZERO 
MDX INL GO TC INL 
LO. SMALL LCAC ILS AREA ACORESS 
s AEAMS SUBTRACT ACCRESS ENC AMS 
STO LSUB = STORE AS LENGTH SUBROUTINES 
PEPE SESEE SELLE SEE SESE SSE CESS EEE LSS EELS LEE LSE EE SS EE 
* INITIALIZE LENGTH GF ILS AREA * 


SRG RIO OGIO GIO IOI GIGI IGOR IOI RGR gO gO i aaa go a keke keg a 
* DETERMINE LENGTH CF ILS AREA FRCM PREVIOUSLY * 


% DETERMINED BEGINING GF ILS AREA TC ENC OF * 
* CORE LOAD. * 
PETES ETE eet ETRE CETTE EES TESST ECE SELES ESE EE ES 
LO. EILS . LOAC PRCG ENC ACORESS 
S - SMALL SUBTRACT BILS AREA ACCRESS 
sto. LILS STORE AS LENGTH ILS AREA 
Ree ea ae a a 
x INITIALIZE LENGTH OF UNUSEC CCRE (GARBAGE} »* 
[222 a a aOR Rg a ao sak gogo ie kg koe 
% DETERMINE LENGTH CF UNUSEC CORE (GARBAGE) * 


* FROM ENG CF CORE LCAD (IE ENC GF ILS AREA) TO * 
* BEGINING CF LI8F TY. CECREASE LENGTH CF CGRE * 
* RESIDENT MONITOR @yY FOLR TC LEAVE SPACE FOR * 


100 


‘L106 


1415 
L42c 
1425 
143C 
1435 
144C 
1445 
1450 
1455 
146C 
1465 
147¢ 
1475 
148C 
1485 
1496 
1495 
150C 
1505 
1510 
1515 
1520 
1525 
1530 
1535 
1540 
1545 
15506 
1555 
1566 
1565 
1570 
1575 
1580 
1585 
1590 
1595 
1600 
1605 
1610 
1615 
1620 
L625 
1630 
1635 
Lé4C 
1645 
1650 
1655 
1lé6C 
1665 
1670 
L675 
168C 
1685 
1690 
1é95 
170¢6 


* INDEX REGISTER (XR) AREA. * AM 1705 

IRR RE RR RR RR Re RR RR RR RE Re RR ee ee Re ee ee a ee AM LTLO 

CLS9 CL C4CCC36E LO OL SOBLBTV.—s-LCAC BEGINING CF LIBF TV AM 1715 

CL9B C  9Ca5 S EILS SUBTRACT PROG ENC ACORESS AM 1720 

CL9C Ci b4ccolls STG Lt LGAR STORE AS LENGTH OF GARBAGE AM 1725 

CLOE CL 74FCCLIO MDX Lb LCRM,-4 SUBTRACT 4 FRCM LEN. RES MCN AM 173C 

é 4 BRR RR RR RR RR RR RR RR Re Re a AM 1735 
[i x PRINT CPERATOR MESSAGE ANC RETURN * AM 1740 


BR RE RR Re Ra RR a Re a Re a Re He RR a Re a Re a eR a Ra a Re ae a Ra AM 1745 


* PRINT CUT TRE CPERATGR MESSAGE ON THE CONSCLE AM 1750 


F * 
hor * PRINTER ‘SET MCOE SW TC INT RUN'. MESSAGE [S * AM 1755 
i [| * NCT PRINTEC IF INTERRUPT RUN MGCE IS ALREADY * AM 1760 
Bod * ON. IF OPERATOR CCES NCT CHANGE MCCE TO INT * AM 1765 
1 * RUN BEFCRE PRESSING PRCG START, MESSAGE IS * AM 1770 
ae * PRINTED AGAIN. PRESSING PRCGRAM STOP COES NCT * AM 1775 
p TI * CAUSE THIS FUNCTION TO BE ALTEREC. WHEN MOCE * AM 1780 
i * SwITCH IS PROPERLY SET, PRCGRAM BEGINS TRACING * AM 1785 
ERs * THROUGH THE MAINLINE, WITH A INTERRUPT OCCUR-  * AM 1790 
i * ING CN LEVEL 5 BEFGRE EACH INSTXUCTION. * AM 1795 
f * THE LEVEL 5 INTERRUPT ENTRY PCINT IS ENT5. * AM 1800 
é ; BR A RR a Re a RR RR eR a Ra a Re Re a Re a a RR a Re a Re a Re a Re AM 1805 
i | ClLAQ CC C4cOccco tC Ok LOAC FROM LCC 13 (L 5 INT TV) AM 1810 
H ClA2 C OC54 STC SAVL5 SAVE IN SAVLS AM L815 
: CLA3 C CC2C Lo ANLS LOAC ACCRESS FOR NEW LEVEL 5 AM 1820 
i | CLA4 CC 04c00G00 stO t 13 STORE AS LEVEL 5 INTER. ACCRe AM 1825 
JE ClLA6 C C218 LG = X2 «fF ITCK =o LCAD «1130 CONSCLE/KEYBOARC AM 1830 
poe * *ISS TV ENTRY AM 1835 
i CLA7 GC O0C24 sto SAVKC SAVE IN SAVKC AM 1840 
Aor CLAB O CC22 Lo ANKC LOAC AOCRESS CF NEw CON/KEYBO AM 1845 
: | * *ISS ROUTINE AM 1850 
BoLG CLAD © 0218 -STG X2 "ITCK STGRE AS 1130 CON/KEY8O ISS AM 1855 
t * *TV ENTRY AM 1860 
f GLAA 0 7C13 MCX INITX GO TO INITX AM 1865 
t . ; AR a aia a go a aa Rai ao oa go doi a alia aa keg - AM 1870 
\ | C1AB C OCC6 06 = .0C 6. _ CONSTANT AM 1875 
a te CLAC C CCTA CON oC /80-6 CONSTANT AM 188C 
t clAD C coo wROL OC eo LOACING AOCRESS CCRE LOAC AM 1885 
7 * *(BEGINING CORE IMAGE KEACER) AM 1890 
t | i . Se Ra a ai ao a aa iia ito ao alo aa tok ak ee OAM 1895 
ts CLAE C_ 1cCco PRINT NOP NJ-CP INSTRUCTION AM 1900 
L CLAF C 0818 x10 IOCCP PRINT ONE LETTER AM 1905 
b C1BO Cl 74G101CB MCX tL IOCCP,1l INCRIMENT ACCRESS IN ICCCP AM 1910 
e : clg2 C 3c WALT WALT FOR INTERRUPT AM 1915 
; | cl83 Cc oaccc NKC DC %-% =. ENTRY PT FOR ISS CON/KEY8C AM 1920 
: x #{ALSG A WAIT INSTRUCTION) AM 1925 
: C184 C OIL x10 I0CC4 = SENSE CSW ANC RESET ILSwW BIT AM 1930 
ROT: cl85 C ECCC AND HOCCO REMCVE ALL BUT BUSY INC. AM 1935 
é |, C1B6 OL 4C20C183 BSC t NKC,yZ GO TO NKC IF NCT ZERO AM 1940 
BL C168 CL 74FFOIC4 MOX Lt PCNT,»-1l MOOIFY PCNT BY -LySKIP IF C AM 1945 
" clBA C 7CC5 MOX BOSCP GO TG BCSCP IF NO SKIP AM 1950 
BO cluB Cc 3ccCc WAIT WAIT FGR CPERATCR AM 1955 
i clBC C CCCO tc AMBUF LOAC ACCRESS CF MBUF AM 1960 
i | clpO C OCCA STO IOCCP STORE INTO IGCCP TO RESTORE AM 1965 
pete C1iBE C CCC4 INETX LC 031 LCAC 31 AM 1970 
E CLBF C DCC4 sta PCNT STORE AS PRiNI COUNT AM 1975 
, | O1CO CL 4C4COLAE BOSCP BOSC L PRINT GO TO PRINY ANC OFF INTERRUPT AM 1980 
Yo [| * *UNLESS LEVEL 5 ALSC ON, AM 1985 
: * *IN WHICH CASE GO TC NLS. AM 1990 
KE, | 
101 


PAGE 


01C2 
01c3 
01c4 
01Cé6 
C1Cé6 
Olc7 
OLcs 
o1cs 
alc9 
O1CA 
01cB 
occ 
Q1CE 
0100 
01d. 


0102 
0103 
0104 
0105 
0107 
0108 
010A 
0108 


010c 
C1OE 
01E0 
OLE2 
O1eE3 
CLES 
O1E6 
O1E6 
QlEA 
G1E8 
OlgCc 
Q1EE 
OLEF 


Q1FO 
ClFl 
OlF2 


O1F4 
CLFS 
O1lF6 
ClF?7 
CLF8 


C1lF9- 


OLFA 
CLEA 
O1F8 
CLFC 


CLFO' 


CLFE 


o_. 
ERIC 


Qa ooo 


Orror 


ooa0qoanoo0on0o 


aagagaagon 


aOaoOon~ 


occo 
OOLF 
ocao 
0000 
ocao0 
OFC] 
0000 
0005 
ogoc 
0005 
0183 
ocao 
acd2 
0102 
024E 


9coc 
0862 
1col 
4C1001C0 
CGF9 
04000000 
CCFl 
0218 © 


440C037F 
C4000368 
94000114 
accé 
65800114 
6287 
C6000078 
0500000 
7201 
7C02 
740201 EF 
TLFF 
TOF6 


4878 
1¢c6c 
4C000co0 


oclc 
gcocc 


. 36CC 


goac 
ao0c 


. O@OC 


ocac 
OlLF9 
3A0C 
1ccc 
ocec 
acce2 


ttl TT eT tT tet TTT TTT TTT TT eT TT TTT TTT TT Te TT TT 


HOCOO CC 70C00 CONSTANT 
031 . OC 31 CONSTANT 
PCNT OC ba PRINT CCUNT (NC OF CHAR.) 
Toacc4 BSS E 0° _, TOCC Te SENSE CSW ANG 
ac 0 “" #RESET CSW ANC ILSh 
ac /OFC1L *FOR CONSOLE PRINTER. 
Tocce ess E— ¢ Tocc TG PRINT CN CGNSCLE 
Oc MBUF SPRINTER ONE CHARACTER AT 
ac 70900 *LOCATICN MBUF 
AMBUF OC MBUF ACORESS OF -MBUF 
ANKC OC NKC ACORESS CF NKC 
SAVKC OC Rok LOCATION TC SAVE K/C ISS ENT 
TOAR2 BSS E 2 TOP OF CISK BUFFER 2 
ANLS OC NiS ACORESS GF NEw LEVEL 5 
AENTS QC ENTS ACCRESS CF ENTS ENTRY PT 
RRR RR RR RR RRR RR RO RRR RR 
_ NLS ac wok NEW ENTRY PCINT FOR LEVEL 5 
X10 Tacc SENSE OEVICE STATUS WORC L 5 
SLA 1 SHIFT INT RUN BIT INTO ACC C 
BSC Lb BOSCP»- GO TO BCSCP [IF NOT INT RUN 
LO AENTS LOAC ENTRY ACERESS FOR L 5 
STO tL 13 STORE INTG LCC 13 
LO SAVKC LOAD SAVEC CON/KEY8C ISS ENT 


STO X2 *ITCK RESTGRE CON/KEYBO ISS TV ENT 
JOGO RRO GGG EI IO IR ROR ROR Rg a ei a 


BSI tC TONG WAIT FOR ALL I/C CFF 


LC tC CML LOAC MINUS CNE 
s tC LCCKM SUBTRACT LENGTh OF CCMMCN 
STO BCOMM+1 STORE AS BEGINING OF COMMCN 


LOX Il LCOMM LOAC XR1 WITR LEN. CF CCMMON 
LOX 2-121 ENTER XR2 WITH ~121 
GAGN LO L2 GTBL+12C LCAD VALUE FRCM BUFFER 


BCOMM STG Ll *-*% STORE IN COMMCN 
MDX 2 +1 MOOIFY XR2 BY ly SKIP IF ZERG 
MOXx ARGUN GO TC ARGUN {IF NG SKIP) 
MOX LC INSCHyt+2 MOCIFY BRANCEF ACCRESS BY +2 
AROUN MOX 1-1 MOCIFY XR1 BY -1,SKIP IF ZERO 
INSCH MOX GAGN GO TC GAGN (IF NC SKIP) 
TTT TTT TT TTT TTT TTT TLL TTT TTT TTT TLE) 
BCSC +-2 SKIP ANC CFF INTERRUPT 
NoP NO-CP 
AMSR BSC L #-% EXIT FRCM AMS AND RETURN 
ROG GG GG RO IGG IGG RO GIGI GR RO RGR aR RR RG RRR GR Ro a 
HOO1O OC /0010 CCNSTANT 
H800C OC 78000 CONSTANT 
H300C CC 43000 CONSTANT (EQUALS WAIT INSTR) 
SAVL5 CC nk LOCATION TC SAVE L 5 TV 
WAITC OC ie} WAIT IF NEGATIVE 
WwAITO OC 0 WAIT INCICATCR FOR CON ENT Sh 
* wAIT IF CGN ENT Sh C IS UP 
: BSS E 0 EVEN CCRE 8CUNCARY 
rccce oc wAITC REAC INTC WAITC 
ac /3A00 THE CGNSCLE ENTRY ShITCKES 
NOP NCP A NC=-CP INSTRUCTICN 
LAOOR OC 0 ACCRESS CF LAST INSTRUCTICN 


LINST BSS E. 2 LAST INSTRUCTICN 
BOR a RR Ra RR Ra 
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6200 
0261 
0203 
C204 
6206 
6207 
0208 
C2CA 
620B 
620 
6200 
C2ce 
020F 
e211 
0213 
C215 


G216' 


C217 
0218 
c219 
O21A 


c218 
c2ic 
C21F 
C220 
C22l 
C222 
C223 
C224 
0225 
C227 
6228 


C229 


C22B 


- 


- 


aAgnagannannanaano 
- 


aa an 
~~ RO 


ANQAN9MDNAANAANASD onaaQann 


cl 


Cc 


9 


6218 
44000395 
5CFC 
4C2003AC 
C83l 
9834 
4C1803AC 
C&20 
8&2E 
082B 
18C6 
LECA 
0400CcCcOl 
c4cocacl 
05C00C43 
CCE6 
OCcL1L 
OBE2 
Calo 
E&CF 
Esod 


4C 100227 
C4acc2cl 
1CC4 
1804 
4802 
E&C2 
EsC2 
D¢cc3 
440CO37F 
4C0C3 
occc 


4CCCO24E 


ccac 


xX EG GO BACK AND EXECUTE NEXT INSTR. 


eH He 


PES ESL L CLE SSPE TTS TTS TTT STC TS TTS TC PT TTS TT TES STS ESE EG 
THIS ROUTINE IS ENTERED WHEN IT IS DECIDED TC * 
GO ON AND EXECUTE THE NEXT INSTRUCTION. * 
BRR RE Me Re ee RR RR a Oe Re RR a a a ee a ee 
REREKKKRKSRSEAKKKKKSKKKKKKKKKRRARRRHK RRA ARR KKK RK 
* INCREMENT INSTRUCTION CCUNTER AND TEST * 
PES CESS SLLCLC LSC SSCL SSCS SCS SST SSE TS TE TS SS SS SES SSE SS ES 
XEQ LOX. 2 718 ENTER INDEX 2 WITH LB HEX 

BSI Lt REAC REAC CON. ENTRY SW INTO ACC 


ee 


AND HOO10 REMCVE ALL BUT BIT ELEVEN 

BSC tL CGA,Z ~GO TG CGA IF NCT ZERO 

Loo INSCT LOAC INSTRUCTICN COUNTER 

so RTIME SUBTRACT DOUBLE FROM RTIME 
BSC Lt CGA,-+ GO TO CCMPUTE GRACE IF ZERC 
tco INSCT LOAC INSTRUCTION CCUNTER 

AD DONE ADD CCUBLE ONE 

STO INSCT STORE OQUBLE INTO INST. CTR 
RTE 6 MOVE LOk 6 OF EXT TC HIGH ACC 
SRA 16-6 SHIFT THESE BITS INTO LOW ACC 
Sto t tl STORE ACC INTG INDEX 1 


LO t ADOR LOAC ACCRESS GF INSTR 


STO LL ATB STORE INTO ACCRESS TABLE 

Lo NGP LCAC A NO-OP INSTRUCTION 

STO WAIT STORE INTO LOCATION WAIT 

X10 Tocco SENSE CONSCLE SWITCHES 

x10 10cc SENSE DEVICE STATUS WORD L 5 
CR WAITO LOGICAL OR IN CON ENT Sh. 

GR WAITC LOGICAL GR IN WAITC INCICATCR 

* WAITC IS NEG. IF INSTR=hAIT 


BSC L NWAIT,- GO TO NwAIT IF NOT MINUS 
to tL ADDR LOAC ACCRESS CF INSTR 


SLA 4 REMCGVE 4 HIGH BITS,SET CARRY 
SRA 4. RIGHT JUSTIFY ACC 
BSC Cc SKIP IF CARRY CFF 
GR h80C0 CR IN HIGH CREER BIT 
OR H30C0 MAKE INTO WAIT INSTRUCTICN 
STO WAIT STORE AS WAIT INSTRUCTION 
BSI bt IONE WAIT FGR ALL I/C OFF 
NWAIT BSI RESTG RESTCRE ACC,EXT,XR1yXR2,STATS 
wAIT OC Hak EITFER A NCP INSTR» OR A 
* *WAIT FCR PROGRAM START KEY 
* *ANC CISPLAY IAR IN STGRAGE 
* *BUFFER REGISTER 


BOSC I. ENTS RETURN ANC CFF INTERRUPT 
Be Re eRe Re RA me Re Re RR a a RR RR RR RH 
* RESTO - RESTORES ACC,EXT,XR1,XR2,C,C * 
WR RR RR a RR A A he eR Re a Re 
* THIS RCUTINE IS ENTEREC WHEN IT IS CESIREG TC * 
RESTORE THE REGISTERS TO TKEIR VALUES WHEN THE 
LAST INSRTUCTION KAS EXECUTED. TEE ACCUMUL- 
ATCR, EXTENTICN, CARRY, CVERFLCW, INDEX1» ANC 
INDEX 2 ARE RESTOREG. (INCEX 3 CCES NCT NEEC 
* RESTORING AS IT IS NCT ALTEREC.) 
Be RR a a a 
RESTC CC Raw ENTRY PCINT FCR RESTO 


et He 


x 
* 
* 
x 
x 
x 


103 


109 


2285 
2290 
2295 
2300 
2305 
2310 
2315 
2320 
2325 
2330 
2335 
2340 
2345 
2350 
2355 
2360 
2365 
2370 
2375 
2380 
2385 
2390 
2395 
2400 
2405 
2410 
2415 
2420 
2425 
2430 
2435 
2440 
2445 
2450 
2455 
2460 
2465 
2470 
2475 
2480 
2485 
2490 
2495 
2500 
2505 
2510 
2515 
2520 
2525 
2530 
2535 
2540 
2545 
255C 
2555 
2560 
2565 
2576 


PAGE 


622C 


. C22E 


0230 
C231 
0232 


0234 
0236 
0237 
0238 
C239 
023A 
02368 
023C 
0230 
023E 
023F 
0245 
0246 
0247 
0248 
0249 
C24A 
024B 
C24C 


C240 - 


024E 
C24F 
0250 
0251 
0252 
0253 
0254 
0255 


10 


cc 
oc 
¢ 
G 
cl 


ooo0coona 


ooaoococoeo0co 


oanaooo00nnd 


65000C00 
&é6C00C0C 
Cac3 
2ccc 
4C8c022B 


cec2 
0000 
3FC1L 
go00 
Ococ . 
00co 
ocol 


oocl 


ococ 
ocoo 
OGGé 
00cs 
ococ 
0038 
OOFO 
ocse 
0300 
0400 
O3FF 
00090 


0000 
6900 
6ACE 
O&E2Z 
28DE 
ccec 
DCA8 
Ca86c 


SAVX1L LEX Ll *#~* RESTCRE INCEX 1 
SAVX2 LOX L2 *-* RESTCRE INCEX 2 
LoD SAVEL RESTCRE ACC AACE EXT 
SAVCO LOS seated RESTCRE CARRY ANC CVERFLCh 


esc I RESTC RETURN TC CALLING PCENT 
SREHSARAS ER SARASR SSSR ESSERE HERA S SEERA ERRS SHER ERS 
* CONSTANTS FCR USE BY UPPER FALF * 
MEI ee ee ee ee ae ee aa Ra A ae ae ee a eae a a a a a a a a 
SAVEL BSS E 2 LCCATICN TC SAVE ACC EXT 
1ccc OC 0 Iccc TC SENSE CEVICE 

cc /3FO1L STATUS hCRC FCR STCP/INT RUN 


INSCT CC 0 INSTRUCTICN CCUNTER 

Cc 0 SECCKE FALF INSTR. CCUNTER 
DONE CC 0 FIRST wCRC CF CCUBLE PRE.~ 1 
ONE CC 1 CONSTANT 
RTIME CC 1 GIVE GNE MINUTE CGF 

‘tc 0 *RUNTIME 
Disp CC 0 CISPLACEMENT 
TEA BSS 6 TABLE OF EA [S SIX kORCS LONG 
08 cc 8 CONSTANT 
013 oc 13 CONSTANT 
AEXIT-OC SEXIT CONSTANT 
HFO CC /F0 CONSTANT 
HCcOsO CC 70080 CONSTANT 
HO300 CC 70300 CONSTANT 
HO400 CC 70400 CONSTANT 
HO3FF CC /O03FF CONSTANT © 
LCMSK CC a % LENGTE CF CCRE MASK 
REESE AAA HR SAHRA H HAHAHA AHS KKAHREKERR AK HRAH HHH 
* * 
* LEVEL 5 INTERRUPT ENTRY PCINT * 
* * 


CITT CLOCLL LLCO LESCOL LLCS o Le Le LE SE. EL Er | 
* THIS POINT £S ENTEREC AFTER TEE EXECUTION OF * 
EACH #ACHING LANGUAGE INSTRUCTION IN TKE USER #* 
WRITTEN PRCGRAK ANCD USER CALLEC SUBPRGGRAMS. * 
INTERRUPT RUN MODE, OPERATING CN LEVEL 5y IS * 
USED TO IMPLIMENT THIS FUNCTION. (SEE I8M * 
1130 FUNCTIGNAL CHARACTERISTICS MANUAL FOR * 
FURTHER INFORMATICN.) © * 
MR Be A ee ae ee ee ee ae ea eae ae ee ee Me a ee ee ee HH HH 
THE ACCUMULATOR, EXTENTICNy CARRY, GVERFLOW, * 
INDEX 1, AND INDEX 2 ARE SAVEE SC THAT THEY * 
MAY BE RESTOREC BEFGRE EXECUTICN CF TFE USER'S * 
NEXT INSRTUCTION BY THE ROUTINE RESTGe THE * 
NEXT INSTRUCTIGN (INST) ANC ITS ACCRESS (ACER) * 
ARE LOADED, WITH THE OLCO VALUES @EING STCREC * 
INTG LAST INSTRUCTION (LINST) ANC [TS ADCRESS * 
* {LACOR). ; * 
SEEKER HESSASEAHSKAKRK HA SAHEK ARES ARS ASEH SAE HR SH HKH HHH RH 
ENTS OC a= LEVEL 5 ENTRY PCINT 
STX 1 SAVX14l SAVE INCEX 1 
STX 2 SAVX241 SAVE INCEX 2 


tt Tt a te et 


STO SAVE1L SAVE ACC ANC EXT 

STS SAVCO SAVE CARRY ANC GVERFLOW 

LO ADOR LOAC LAST ACCRESS 

sto LADDR ~ STCRE AS LAST ACORESS 

LOD INST LGac COUBLE LAST INSTRUCTION 
104 


t 2575 


258C 
2585 
2590 
2595 
260C 
26C5 
261C 
2615 
262C 
2625 
2630 
2635 
2640 
2645 
265C 
2655 
26606 
2665 
267C 
2675 
2680 
2685 
2690 
2695 
2700 
2705 
2716 
2715 
2720 
2725 
273C 
2735 
2740 
2745 
2750 
2755 
2766 
2765 
277C 
2775 
2780 
2785 
2790 
2795 
2860 
2805 
2810 
2815 
2820 
2825 
2a3C 
2835 
2840 
2845 
2850 
2855 
2860 
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C256 C DeaT 
C257 C CCFE 
C258 G ECF4 
€259 C DBCEéT. 
C25A CC D4ccoco2 
c25c C Cecc 
C25D C DCE4 
C25E—E C Czcl 
C25F € O0C63 
o26c C clic 
C261 G O0C96 
C262 C COCS5E 
C263 C 62CA 
C264 Cl 96CC0114. 
C266 Cl 4C28C26A 
C268 0 T2FF 
C269 C TCFA 
C26A C 6A54 
C26B G1 4E&COCF4 
C26D GC CC53 
O26— C FCCS8 
G26F C1 4€2003AC 
G271 C 6220 
0272 0 TO4A 
0273 C 161¢ 
0274 GC OC4F 


ERIC © 


Sto. LIAST STGRE GCUBLE AS LAST INSTRUCT 

LL ENTS LCAC ACCRESS CF INSTRUCTION 

4ND LCMSK "CIVICE' BY LENGTH CF CCRE 

STC ACCR STCRE AS ACCRESS 

STO L 2 STCRE INTC INCEX 2 

LC 2c LCAC INSTRUCTION 

sto INST STGRE AS INSTRUCTION 

Lt 21 LGAC SECCNC WCRC OF INSTR 

STO INST+1 STGRE AS INSTRUCTICN (LCWER) 
eR ge kt ke kag ake ke ate ate a ai ate a age ake ke ae ae ade aa aie a ae ae aa ae ae a ae ae a ak ae ape 
% * 
* TEST ACCRESS USING TABLE * 
% * 


SOOO iui i toi i IG om iia I Ra ii iol ioiai oii i ici ui kg iii 
* THE INCICATGR TELLING IF TRE ENSTRUCTICN IS A * 
* WAIT IS INITIALIZEC TG ZERC (wWAITC). A LCCP * 
* ES THEN PREFORMED TG CETERNINE IN WHAT PARTIT— * 
* ION GF CORE THE ACCRESS CF THE INSTRUCTION IS * 
* LCOCATEC. THE INCEX OF TRIS LCGP ES USED TO * 
* BRANCH TC TRE PRGPER PCINT FOR TESTING OF TRE * 
* ACCORESS. * 
SOOO OIRO iol III Itoi i iii aioi aii ot ioioi a i aGI IOI ii Ipi Rai ioiai i io 


SLA 16 ENTER ACC WITK ZERO 
sic WAITC -INITEALIZE WAITC TC ZERC 
LO ADOR LCAC ACCRESS 
LUX 2 10 ENTER INCEX 2 WITH 10 
BACK S L2 TBS SUBTRACT ENTRY IN TABLE 
BSC L CUTsZ+ GG TC OUT ON FINUS 
MUX 2-1 MCOIFY XR2 BY -1,SKIP IF ZERO 
MCX BACK GO TO BACK 
Cut STX 2 SADRS SAVE XR2 IN SACRS 
BSC [2 TACOR GG TO THROUGH TABLE DF ACCR 


PCPS ELLLCLLLE SESE E ESSE T ESTE SEES ERECT EEE E EE PE CE EEE EE 


* ACORESS WITHIN RESICENT MONITCR 4 
POSSE SSCLOCL£OSC LSC LIES CS CCC£SSCSL LE TESTE STEER EEE EE EE 
* IF THE ACCRESS IS WITHIN ThE RESICENT MONITORs * 
THIS ROUTINE IS ENTERED. IF THE ACCRESS OF * 
THE INSTRUCTION (ACCR) IS THE CALL EXIT ENTRY 
TC THE MONITOR» INCEX 2 SET TC INDICATE A 
NGRMAL EXIT. IN EITHER CASE ThE PROGRAM IS 

NCT ALLOWED TO CONTINUE EXECUTING. THIS IS 
ACCOMPLISHED BY GOING TO CGA. 

SEROROR tgs Ogg tOgogog gg gig kage go age ae age age age ae age ae ai ae ae age abe ade a a abe ae a ate ae abe ae ae ae a a ae 


Rett et t 


* 
* 
* 
* 
* 
* 


N402 LC ADOR LOAC ACC wWITK ACORESS 
EGR  ———- AEXIT CCMPARE WITh EXIT ENT PCINT 
BSC L CGAsZ GO TO CGA IF NOT ZERO 
LOX 2 /20 ENTER XR2 WITK /20 AS 
*INEICATOR CF NCRMAL EXIT 
MDX CG GO TO COMPUTE GRACE 
SOOO tO Oi IC iol toi iol ii ioioiotog aot ok toi togoiotogoiciok a a i ie ik 
* ACORESS WITHIN MAINLINE * 


PITESELCCLSLCOLSCOL ELLE LES SPL TEEPE TES EEE ETD Toit Ee EE 
* IF THE ADDRESS IS WITHIN THE MAINLINE PROGRAM, * 
* THE MON INCICATOR IS SET TC ZERO TO INDICATE * 
* THAT THE PROGRAM IS WKTHIN THE MAINLINE. * 
PCC TECLOLSLOOSSOSLS SECO LSC E LE EEE LEE SEED ESE EE EE EE EE 
N410 SLA 16 ENTER ACC WITK ZERO 

sto MON STORE ZERO INTO MON INDICATOR 


2865 
2870 
2875 
2880 
2885 
2890 
2895 
2500 
2905 
2910 
2915 
2920 
2925 
2930 
2935 
2940 
2945 
2950 
2955 
2960 
2965 
2976 
2975 
2980 
2985 
2990 
2995 
3000 
3005 
3010 
3015 
3020 
3025 
3030 
3035 
3040 
3045 
3050 
3055 
3060 
3065 
3070 
3075 
3080 
3085 
3090 
3095 
3100 
3105 
3110 
3115 
3120 
3125 
3130 
3135 
3140 
3145 
3150 


i 
t 
i 
‘ 
: 
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0275 


12 


Q 


7003 


0276 @ C40 
0277 02 4C1003AC 


0279 
0278 
o27C 
c270 
Q27E 
C27F 
0280 
c281 
0282 
C283 
0285 
0286 
6287 
C288 
0289 
G28A 
0288 
C2sc 
Q28E 
028F 
o29t 
C292 


- 


oO 


o 


aQgarnogooodoomacndnoocooaecaqaoonno 
~ 


© 
— 


6680022F 
CCl46 
EOQCF 
1888 
ele Loe) 
oc0D 
1800 
1888 
OO8B 
84000000 
OGBA 
CCB? 
8639 
803E 
OcB5 
C038 
0085 
84000G00 
OCb3 
C4800241 
o0Bl 
C4800242 


* MON = 1 WHILE IN FONITOR 

* MON = 0 WHILE IN MAINLINE 

* MCN =-1 WHILE IN SUBROUTINES 
MDX N106 GO TG N106 

SCC CSSCSC©C£ CECT LCL SL OPS ELS TST LTS ES TT TET TT TEES Ee EE EE 

* ACORESS WITHIN SWBRCUTINES GR LIBF TV * 


PEST OCLOTOCLOSOOCLCC COS OL ES SE EE Ee Ee Se EE er er er 
* If THE PRCGRAM IS WITHIN THE SUBRCUTINE AREA * 
* OR THE LIBF TRANSFER VECTOR, TRE WEN INCICATCR * 
* IS TESTED TO CETERMINE IF THE PROGRAM IS * 
%* VALIDLY WITHIN THESE AREAS (IE. IT MUST BE * 
* EQUAL TO MINUS ONE). * 
PTETSLOLSCOLSEOOOCOCC COLES EEE EEE EE Se eer S| 


N414 LD MON LOAC ACC WITh MON INCICATOR 
BSC L CGA,- GG Tc CGA GN AGT MINUS 

TT PECELICLCOCLCOLCOOCOOL OL EE OO RE Se Ee EE ee ere 

* * 

* FORMS EFFECTIVE ADDRESS * 

* * 


ELECT LILLOCOOOOCLOLLLLES ELI rereerrereeELereen © £5 5 5] 
* AFTER IT HAS BEEN DETERMINED THAT THE 

* INSTRUCTEON IS IN A WALIC PARTITION OF CORE, 

* THE TESTING CONTINGES WITH THIS RCUTINE TO 

* DETERMINE IF THE EFFECTIVE ACCRESS IS IN A 

* VALID PARTITION OF.CQRE. CONSICERATION IS 

* MADE OF THE TYPE INSTRUCTICN INVCLVEC, THE 

* PARTITION IN WHICH IT IS LCCATEC, AND WHETHER 
* OR NOT IT wItt ALTER CCRE IF EXECUTEC. (IF 

* IT WILL ALTER CORE, THE STCRE INCICATGR IS SET 
* TO ONE.s IF NOTy IT IS SET TO ZERO.) 

GE RR AIO a RR a a RR a a aa ak ak a ak ak ae a Raa a a ae a a a a a a a a a a a a ak 
* EFFECTIVE ADDRESSES ARE CALCULATEC FOR EACH * 
* OF THE SIX POSSIBLE TYPES CF ACCRESSING --. * 
* SHORTe SHCRT INDEXECe LONGs LONG INOEXEC, * 
* INOIRECT, AND INDIRECT INCEXEC. * 
TEES IEOLECLOLOOOO LE PEE ECCT PTET Te PCT PPE f | 
N106 LDX I2 SAVX2+1 RESTGRE INCEX 2 


HHH HH HE HH 


LD INST LOAC INSTRUCTION FGR TESTING 

AND HO3FF REMCVE ALL BUT TAG AND CISP. 

SRT 8 MOVE -~ TAG-LCH ACCy OISP-EXT 

sto INSI+1 STORE AS ACCRESS OF INSTR. 

sTO INS2+1 STORE AS ACCRESS GCF INSTR. 

RTE 16 MOVE ExT (CISP) TG ACC 

SRT 8 EXTENC SIGN CF CISPLACEMENT 

sto Disp STCRE AS THE CISPLACEMENT 
INST A Lo . ACD TRE INCEX REGISTER 

sto TEAt1 STORE IN TABLE EFFECTIVE ACCR 

LO OISP LCAC THE CISPLACEMENT 

A ' ADDR ADD THE ACCRESS OF INST 

A. Di ACD ONE BECAUSE IAR=14ACCR 

ste TEA+0 STORE IN TABLE EFFECTIVE ACCR 

LD INST#1 L%GAC SECGNC wCRCO CF INST 

sto TEA+2 STORE IN TABLE EFFECTIVE ACCR 
INS2) A Lt #-* ACD TKE INCEX REGISTER 

sta TEA+3 STCRE IN TABLE EFFECTIVE ACCR 

Lo I TEA+2° CGAC INCIRECT FROW AN EA 

STO TEA+4 STCRE IN TABLE EFFECTIVE ACCR 


LO 1 TEA+t3 LOAC INCIRECT FROM AN EA 


3155 
316C 
3165 
3176 
3175 
3180 
3185 
3190 
3195 
320€ 
3205 
3210 
32ik5 
3220 
3225 
3230 
3235 
3240 
3245 
3250 
3255 
3260 
3265 
3270 
3275 
3280 
3285 
3290 
3295 


-3300 


3305 
3310 
3315 


-3320 


3325 
3330 
3335 
3340 
3345 
3350 
3355 
3360 
3365 
3370 
3375 
3380 
3385 
3390 
3395 
340C 
3405 
3410 
3415 
3420 
3425 
3430 
3435 
3446 
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0294 


0295 
0296 
C297 
0298 
C299 
C29A 
C29B 
c29C 
G29E 
C29F 
C2A0 
d2Al 
C2Ah2 
C2A3 
G2A4 
C2A5 
C2ZA6 
0248 
C2AA 
C2AB 
C2aC 
02A0 
G2AF 
c2B0 
C2B1 


C2B2 
C2B3 
C2B4 
C2B6 
C2B8 
C289 
C2BA 
G2BB 
c2B0 


C2BF 
02CO 
c2cl 
G2C2 
C2C4 


13 


Cc 


OAOANMNNANGAGAGPCMQDNMDAAGDGNACGCMQMQ0COONGMA0OG 


OCAF 


610¢ 
CC2B 
ECB2 
4820 
611C 
cc2? 
ECAF 
4C1802A3 
7110 
cc22 
ECAB 
4820 
7LF8 
Cole 
1808 
1¢C1 
04G00002 
CE000084 
1960 
180C 
9C1B 
4C2802C9 
1801 
180F 
0013 


18C3 
18C0 
o4co00col 


C5c0C23F . 


ECS4 
ocac 
4024 
4CG00200 
4C0003AC 


0000 
ocoo 
acco 
ccc2 
occo 


sto TEA45 STORE IN TABLE EFFECTIVE ACCR 


PISPSOOCCCIOLCCCL OSC P SLEPT PESTS TESTS EE TEL TPE ES EE 
* TEST INSTRUCTION * 


PEeoTCPOCSLOCCLO CCC LIL PEE SET EPP SSE S TTT TT TSE EP. 2 So 
* THE INSTRUCTION IS TESTEC TO CETERMINE WHICH * 


* CF THE ENTRIES IN THE EFFECTIVE ACORESS TABLE * 
* IS IN FACT THE EFFECTIVE ACDRESS. A BRANCH * 
* IS THEN MACE TC THE ROUTINE WHICH TESTS THE x 
* EFFECTIVE ADORESS BY DETERMINING WHICH * 
* PARTITION OF CORE IT 1S IN. * 
CoCo CCCSCCS SSCS SCC LCS CLL EP PE SETS TEST TEE TELS PL SS ET EY 

tox 10 ENTER INCEX 1 WITH ZERO 
Lo INST LOAC INSTRUCTION FOR TESTING 
ANO HO300 REMGVE ALL BUT TAG BITS 
BSC z SKIP GN ZERG 
Lox 1 32-4 ENTER INOEX 1 WITH 28 
Lo INST OAC INSTRUCTION FOR TESTING 
ANO HO400 REMGVE ALL But FORMAT BIT 
BSC L  SHORTy+- GO TG SHORT CN ZERC 
MOX. 1 16 MOOLFY INOEX 1 BY 16 
Lo INST LOAD INSTRUCTION FOR TESTING 
ANO HOO8O KEMCYE ALL BUT INDIRECT BIT 
BSC z SKIP IF ACC ZERO 
MDX 1-8 MOOIFY INOEX 1 BY -8 
SHORT LO INST LOAC INSTRUCTION FOR TESTING 
SRA 11 REMOVE ALL BUT GP COOE 
SLA 1 MULTIPLY BY ThO 
sto L 2 STORE ASG INTC INOEX 2 
LOO L2 TINST  LOAC COUBLE FROM TABLE INST 
RTE 10 ‘ROTATE RIGHT ACC USING XRL 
SRA 12 REMCVE ALL BUT HEX CIGIT 
S 04 SUBTRACT FCUR 
BSC L SPy+#Z GO TO SP ON FINUS 
RTE 17 PLACE STORE BIT INTO HIGH ACC 
SRA 15 MOVE INTO LOW ACC 
STO STORE STORE AS STORE INDICATOR 
& STORE INDICATCR = 0 IF LOAC 
& . STGRE INCICATCR = 1 IF STORE 
‘RTE 3 MOVE 3 BITS CF EXT INTO ACC 
SRA 16-3 RIGKT JUSTIFY THE THREE BITS 
sto Ll STORE ACC INTC INOEX 1 
LD Ll TEA LOAC FROM TABLE OF EA 
TEST ANO LOMSK 'OIVICE* BY LENGTH CF CCRE 
STO EA STORE AS EFFECTIVE ADORESS 
BSI.  TSTEA RETURN BRANCH TO TEST EA 
XEGN BSC L_ XEQ GO TC XEG ACTUAL 

CG BSC L- CGA GO TO CG ACTUAL 
PEST CSCS CCC ECCS CLC LOL ES SEES SSE LESS ECE SES SES EE ESS 
* CONSTANTS FOR GENERAL USE * 
PoP CC CSCLCCS SCLC SCC LS LCL LS SET SCT CTS TSEC TE ES SS TS eS SES 
SAORS OC 4-8 LOCATION TC SAVE ACCR INCIC. 
SEAS CC hot LOCATION TC SAVE EA INDICATOR 
ACOR OC 0 ACDRESS OF INSTRUCTION NEXT 
INS: BSS E 2 NEXT INSTRUCTICN 
MCN OC G VGN INOICATCR 
* MON = 1 WHILE IN FONITOR 
* MON = 0 WHILE IN MAINLINE 
* WON =-1 WHILE IN SUBROUTINES 
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3445 
3450 
3455 
3460 
3465 
3470 
3475 
3480 
3485 
3490 
3495 
3500 
3505 
3510 
3515 
3520 
3525 
3530 
3535 
3540 
3545 
3556 
3555 
3560 
3565 
3570 
3575 
3580 
3585 
3590 
3595 
3600 
3605 
3610 
3615 
3620 
3625 
3630 
3635 
3640 
3645 
3650 
3655. 
3660 
3665 
3670 
3675 
3680 
3685 
369 
3695 
3700 
3705 
3710 
3715 
3727) 
3725 
3730 


o- 
ERIC 


PAGE 
g2cs 


02C6 
02C7 
02C8 


02c9 
Q2CA 
o2cc 
O2CE 
O2CF 
0200 
0201 
0202 
O2D2 
0204 
0205 
0206 
0207 
0209 
020A 


0208 
020C 


* 0200 


Q20E 


Q20F 
O2E0 
Q2E1 
O2E3 
Q2E5 
O2E6 
O2E7 


O2E8 
C2E9 


14 
0 
0 


0 
i] 


- =o 


eooco ecoceo orfFrrrrcoo 
= A 


ecooooccoo 
ee 


000G 


co000 
0001 
0004 


621C 
04000001 
40800202 
0200 
O3AC 
0262 
0206 
74FFOLFS 


1000 
70E5 
6100 
4400036F 
FFFF 
7400 


6101 
69&8 
CQES 
7609 


0000 
620A 
96000114 
4C2802E7 
T2FF 
TOFA 
7206 


6A0T 
4E8000F4 


om TEST EFFECTIVE ACCRESS USING TABLE * 


STORE OC 0 STORE INOICATCR 

* STORE INCICATCR = 0 IF LCAC 

* STORE INCICATCR = 1 If STGRE 
EA oc 0 EFFECTIVE ACCRESS STORAGE 

01 cc 1 CONSTANT 

D4 oc 4 CONSTANT 

Seok tot RIOR Ot Ot tof OR Sot ii QOt tog toi oii koi ko gogoi gogegege gage ica gage gcake agc a 
a TEST FOR SPECIAL CASES * 


AO Oa tok oti io ai ga i aotoiot kot ot ot gi goiotagoaicis agai at agai ae ate a a 


* THIS ROUTING IS ENTEREC WHEN IT IS DESIRED TO * 
* TEST THE SPECIAL CASES WHERE THE INSTRUCTION * 
* HAS NO EFFECTIVE ACDRESS. THESE CASES ARE * 
* CLASSIFIED FOUR WAYS -- INSTRUCTIONS ThAT CAN * 
* NOT BE ALLOWED TO EXECUTE» INSTRUCTIONS THAT * 
* ARE ALWAYS ALLOWED TO EXECUTE, WAIT INSTR= * 
* UCTIONS: AND THE MDX INSTRUCTION. * 
Soto got got kok dak totog i gogkoi toi tog tog tai ag tag aR gogc i gege daie ate age ae ate ae ate age age ae age a 
SP LOX 2 /1C ENTER XR2 WITK /1C AS INDIC. 

stO Lt 1 STORE ACC INTC XR1 

BSC I1 TSPR — BRANCH THROUGK TSPR USING XR1 

cc XEQ GO TC XE 

oc CGA GO TG CGA 

oc WAITS GO TC WAITS 

DC MDOXLO GO TO MOXLO 
WAITS MUX L WAITC,-1 DECREMENT hAITC TO NEGATIVE 
(SPR EQU WAITS 

Nop 

MOX XEGN GG TC XEC 


MOXLO LOX 10 ENTER INCEX 1 WITH ZERG 
BSI Lt BITS RETURN BRANCK TC BITS 


oc /FFFF TEST FOR MCX INSTR. WITH 

oc 47400 LONG FORMAT, NO INCEX, ANC 
* “*2ERO DISPLACEMENT 

LOX ll ENTER XR1 WITH 1 IF FALSE 

S$TX 1 STORE STORE INCEX 1 AS STGRE INC. 

Lo INST+1 CLCAC 2NC HALF CF INSTRUCTION 

MOX TEST 60 TO TEST 
2a Rt iar i i tO tam tototoioiatototai i aa ai moi go ie geet a ke ake ate ai ak ak 
% % 


* * 
SAO tog i tot i toto toto i tog goioioiatotoi otoiaiatoictatotatotoictoioatai toi ac atoi 
* THE EFFECTIVE ADDRESS IS TESTEL BY DETERMINING * 


* . TN WHICH PARTITIGN GF CCRE If LIES. * 
2 ORO On OOK ROCIO OI i a ii otOsOiog iT toi i tot gotaioiatagc ai gage ake aga atc ate ak age 
TSTEA OC bead ENTRY PCINT FCR TEST EA 
LOX 210 ENTER INDEX 2 WITH 10 
BACK] S L2 TBS SUBTRACT ENTRY IN TABLE 
BSC L OUT1,Z2+ GO TC: OUT ON FINUS 
MDX 2-1 MODIFY XR2 BY’ -1lySKIP IF ZERC 
“DX BACK1L GO TO BACKL 
CuTl POX 21 MCOIFY XR2 BY 11 IN CRCER TC 
% *USE THE LOWER HALF CF TACCR 


STX 2 SEAS SAVE XR2 IN SEAS 
BSC 12 TACCR GO TG TEROUGK TABLE OF ACER 
SOOO IO Oto Oi oi ilo iigioioioiaioioi iaioiaiaioioicigi ll aototoioiotatoici gatos a 


* EFFECTIVE ACCRESS IN FIRST FCUR wWCRCOS * 
2S aR ROO ai loi a i iioioiok 2g gaia atotoiotatotoioiaiatoicteg i aioge tat age 
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pod 
Ps. 


3735 
3740 
3745 
3750 
3755 
3760 
3765 
3770 
3775 
378C 
3785 
3790 
3795 
3800 
3805 
3810 
3815 
3820 
3825 
3630 
3835 
3840 
3845 
3850 
3855 
3860 
3865 
3870 
3875 
3880 
3885 
3890 
3895 
3900 


° 3905 


3910 
3915 
3920 
3925 


°3930 


3935 
3940 
3945 
3950 


3955 


3960 
3965 
3970 
3975 
3980 
3985 
3990 
3995 
4C00 
4005 
4010 
4Ci5 
4020 


PAGE 


C2EB 


15. 


0 


CODA 


C2EC OL 4€200365 


O2EE 
C2EF 


02F0 
C2F2 
C2F3 
02F4 
C2F5 
02F6 
C2F7 


G2F8 - 


O2FA 
C2FC 


C2FC° 


C2FE 
C2FF 
6300 
C302 
C304 
¢305 
0306 
C307 
0308 
03CA 


C30F 
o31ll 
0313 
C315 
C317 
C319 
c31c 
C31E 


ao 


~ 


~ 


oananraononon0n0na onaoo0onono 
he 


- 


aaaana 
ae ee ee 


a 


Co07 
FC77 


4C 180365 


‘4C7C 


FCOQ 
440C 
7029 
6106 
COcE 


FSCCOOCE 


4C 180313 
TLFF 
7CFS 
ccc? 
FOLE 
4C2003AC 
658002C1 
C103 
occ? 
C104 
Doce 
4400022B 


7405024E 
4C00C24F 
4400022B 
448002C6 
7402024E 
4C00024F 
occe 

OG3F 


* IF THE EFFECTIVE ADCRESS IS ECUAL TO ZERO, * 
* IT IS TESTED AS PART OF THE MONITOR. IF THE * 
* EFFECTIVE ADDRESS IS WITHIN THE INDEX * 
* REGISTERS {LOCATICNS ONE, TWO, AND THREE IN * 
* CCRE), A BRANCH IS MADE TO XEQ IN ORDER TO * 
* RETURN TO THE CALLING PROGRAM. * 
PPT OPIIIOLEOTOLOLISCOOOOO OTE TSS ETL ET ELE SS ee S| 
N500 LOD EA LOAG EFFECTIVE ADCRESS 
BSC L XXX_Z GO. TO XEQ ON NOT ZERO 
PTET TI SIL OTOLCOLOCOSOCOCLOOSSOSLOOOTOOCOLLCS LOSS OLE SY 
% EFFECTIVE ADDKESS IN RESIDENT MONITOR * 
TTETELELTOLOLESCSCLOSLSTOCLCSOLOCSOSS SOLOS TO SLOLELS ST 
IF THE EFFECTIVE ADDRESS IS WITHZN THE MONITOR * 
AREAy THE PROGRAM IS NCGT ALLOWED TO ENTER THE * 
MONITOR. IF THE ATTEMPTED ENTRY POINT IS AN * 
I1/G ERROR TRAP IN *LIST*, OR IS THE DUMP * 
ENTRY» THEN THE ENTRY IS MADE FRCM THIS AMS * 
* 
* 


tee He 


ROUTINE RATHER THAN THE CALLING PROGRAM. 
PEE EELELIE LEE LEE ESE TS TEE TE TT ST TT TET TS TE TE ET EEE TES 


N501 LOC EA LOAC EFFECTIVE ACCRESS 
ECR ~—«IOCT COMPARE WITK. 1/0 OFF INDIC- 

* oe *ATOR ADDRESS 
BSC L XXXyt- GO TO XXX ON ZERO 
BSI BITS RETURN BRANCH TO BITS 
oc /FCCO CHECK FOR LONG 
oc 14400 BSI INSTRUCTION (010001). 
MDX N503 GC TO N503 IF TEST FALSE 
LCX 16 ENTER INCEX 1. WITH-6 

RT LO EA LOAC EA FOR COMPARISON 
EDR Ll LIST COMPARE AN -ENTRY ADDRESS 

* TO THE CORE RESIDENT MONITOR 
BSC L. Xe-+ GO TO xX IF ACC ZERO 
MOX 1 -L MODIFY XR1 BY -l,SKIP IF ZERO 
MDX RT GO TO RT 
LO EA LOAC EFFECTIVE ADDRESS 
EOR ADMP COMPARE. WITH CUMP ENTRY ACCR. 


BSC L CGA,Z GO TO CGA IF KOT ZERO 
LOX 11 ADDR LOAC XR1 WITH ADDRESS 


LO 1 3 LOAC BEGINING ACORESS 
STO 0+3 STORE INTO PCMP STATEMENT 
LO 14 LOAC END ADCRESS 
STO D+4 STORE INTO POMP STATEMENT 
BSI L RESTO ‘RESTORE ACCyEXTsXR1yXR29C O06 
D POHP 4—%,%-% DUMP CORE AS SPECIFIED BY 
* ‘THE CALLING PROGRAM. 
MOX L ENTS,5 MOCIFY RETURN ACORESS BY 5 
BSC L ENTS+1 RETURN TC TEST NEXT INSTR. 
x BSI L RESTO RESTGRE ACCyEXTsXR1,¢XR29C Ce 
BSI I €A BRANCH (BSI) TO EFF- ACCR. 
MOX L ENTS+2 MODIFY RETURN ACORESS BY 2 
BSC L ENTS+1 RETURN TQ TEST NEXT INSTR. 
IOAR3 BSS E 2 TOP GF CISK BUFFER 3 
ACMP CC $DUMP DUMP ENTRY POINT 
OI IOIOIOIO ORO IORI IOI ROI OIRO IOI Oi i iI ig rig ink a totoi ig i ie ek 
* EFFECTIVE ACCRESS IN AMS OR ILS AREA * 


PEELE EEE L LEC L ELE DST SET PTET PTS PPP PPT ETP P PTET Et EE tt 
* IF THE INSTRUCTION IS OF A TYPE THAT ALTERS * 


‘* CGRE {({I€. THE STORE INDICATOR IS EGUAL TO ONE} * 


4025 
4030 
4035 
4040 
4045 
4050 
4055 
4060 
4065 
4070 
4075 
4080 
4085 
4090 
4095 
4100 
4105 
4110 
4115 
4120 
4125 
4130 
4135. 
4140 
4145 
4150 
4155 
416G 
4165 
4170 
4175 
4180 
4185 
4190 
4195 
4200 
4205 


4210 
- 4215 


4220 
4225 
4230 
4235 
4240 
4245 
4250 
4255 
4260 
4265 
4270 
4275 
4280 
4285 
4290 
4295 
4300 
4305 
4310 
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O3LF 0 COAS 
0320 O1 4C2003AC 


0322 
0323 
0325 
0327 
0328 
032A 
032C 
0320 
032E 
032F 
0330 
0332 
0333 
0334 
0336 
0338 
0339 
0338 


033C 
0330 


Q33F 


0340 
Q341 


o- 
ERIC 


ooo 


C049 
4C160334 
04000001 
co99 
F5000002 
40180365 
TLFF 
TO0F9 
Co30 
SO3A : 
40280334 
621A 
7089 
7401036C 
6580036C 
Coss 
D5000C02 
7029 


C087 
40280365 


402F 
FF8O 
4480 


* THEN IT [S NOT ALLOWED TC EXECUTE. IF NOT, IT * 
* [S TREATEC AS IF THE EA IS wWITFIN UNUSEC CCRE. * 
SECO IOI IGG GIO ami Og gaiioi i gio a goiob gogaioi g gog Sa 


N503 LO STORE LCAC STCRE INCICATCR 

BSC L CGArZ GO TC CCMPUTE GRACE IF ACT C 
* STCRE INCICATCR = C IF LCAL 
* STCRE INCICATCR = 1 IF STCRE 
SESS IOO OGIO IOI IOI a a ial gO a a i gai gaia icici gee a 
* EFFECTIVE ACCRESS IN UNUSEC CCRE (GARBAGE) * 


IIAP PLLILCLL OPPS LCC CLC CCOLS COLLET ETE Ee ee 
* TF THE EFFECTIVE ACCRESS (EA) IS WITHIN UNUSEC * 


* CORE (GARBAGE), ‘TREN TFE ACCRESS IS * 
* RECCROEO IN THE GARBAGE TABLE. IF THAT * 
* AQORESS IS ALREACY IN THE GARBAGE TABLE, NC * 
* NEW ENTRY IS MAOE IN THE TABLE. If THE TABLE * 
* BECOMES FULL, THE PRCGRAM IS ABBCRTEC ANO A * 
* SPECIAL ERROR MESSAGE IS PRINTEC BY THE OUTPUT * 
* PRCGRAM. . * 
SO ROR ORE tokio go tO Ot gO Ol OR gi it i gi gi gate mote goa ae ie ae aca a atc a 
N504 LO GCTR LCAO GARBAGE CCUNTER 

BSC L PPy-+ GO TC PP IF ZERO 

sto et 1 STORE INTO INCEX 1 
BCK to AOOR LCAC ACC WITH ACORESS 


EOR Li GTBL~-1 CCMPARE WITF GARBAGE TABLE 
BSC L XXX»-+ GO TO XEC CN ZERO 


MOX 1-2 MOOIFY XR1 BY -1,SKIP IF ZERC 
MOXx BCK GO TC BCK IF AC SKIP 

PAST LO GCTR LOAC GARBAGE COUNTER 
Ss 064 SUBTRACT 64 {LENGTH OF GTBL) 
BSC L PPyZ+ GO TC PP IF NEGATIVE 
Lox 2-/1A ENTER XR2 WITH /LA AS INCIC. 
MOX CG GO TG CCMPUTE GRADE 


PP . MOX L GCTR+l INCRIMENT GARBAGE COUNTER 
Lox Il GCTR LOAC XRI WITK GARBAGE CCUNTER 


Lo AOOR LOAO ACC WITH ACORESS 

STO UL GTBL-2 STORE INTO GARBAGE TABLE 

MOX XXX GO TG XEC 
SOOO ai IOI agi ai ai ai mou Rag ag ai iaiaioioiaiciaiak 
* EFFECTIVE AOCRESS IN SUBROUTINES * 


SOO tO oi oioiOi Oat otOI I iO I i OI I Ri IOI ROR I aOR ROI I i i iO i aici ie 
* TF THE EFFECTIVE ACCRESS IS WITKIN THE SUBRCL- * 
TINES, IT IS PREMITEO TG EXECUTE IF THE * 
INSTRUCTION ES WITHIN THE SUBRCUTINES, CR IF * 
THE INSTRUCTION IS A VALIC CALL ENTRY TO THE * 
SUBROUTINE AREA THROUGH THE CALL- TRANSFER * 
VECTOR. IN THIS LAST CASE» TREE MCN INCICATCR * 
TS SET TO INCICATE THAT THE PRCGRAM IS VALICLY * 
WITHIN THE SUBROUTINE AREA. IF BCTH THESE * 
TESTS FAIL» THE EFFECTIVE ACORESS IS TREATEC * 
AS IF WITHIN AMS CR ILS AREA (IE. IT IS WITKIN * 
* AN AREA THAT MUST NOT BE ALTEREC.) * 
SEI OOOO RIC I IOI IOI I i IOI ur IOI ROR i iO geo g 


StHeHH HE HEH HF 


N506 LO MON LOAC MON INCICATOR 
BSC L XxXX+2+ GO TC XEG IF PROGRAM IS IN 
* SUBROUTINE AREA 
BSI BITS RETURN BRANCEK TO BITS ROUTINE 
oc /FFBO CHECK FOR BSI I0 
oc 44480 INSTRUCTICN (C100010C1). 
110 


4315 
432C 
4325 
4330 
4335 
434C 
4345 
4350 
4355 
4360 
4365 
4370 
4375 
4380 
4385 
4390 
4395 
4400 
4405 
4410 
4415 
4420 
4425 
4430 
4435 
4440 
4445 
4450 
4455 
4460 
4465 
4470 
4475 
4486 
4485 
4490 
4495 
45CC 
4505 
4510 
4515 
452C 
4525 
4530 
4535 
454C 
4545 
4550 
4555 
4560 
4565 
4570 
4575 
4580 
4585 
4590 
4595 
460C 
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C342 
C343 
C345 
C346 


' C348 


C34A 
C34C 


€340 
034E 
C34F 
0350 
C351 
0353 
C354 
0356 
C357 
C359 
C35A 
635B 
G35C 
C35E 
C35F 


C361 


C362 
0364 


6365 


0367 


gagnenanangnoonanonnaa 
~ 


7cCCc 
C4cceec3 
9C27 
4C2803AC 
94060115 
4C1CC3AC 
7Cll 


4C2l 
FFOO 
43CC 
7cll ; 
C4000C03 
FCT4 
4C2003AC 
CCl? 
940G602C6 
1890 
ASCE 
L8co 
4C2C03AC 
cccg 
040002C4 


7003 


74G0C2C5 
7047 


4C80020F 


0c32 


MDX N503 GC TC N5C3 IF ChECK FALSE 
LoL INST+L PUT ACORESS PCRTION INTC ACC 
S BCALL SUBTRACT ACCR BEG. CF CALL 
BSC L CGA,+Z GQ TO CGA ON PINUS 
S L LCLTV SUBTRACT LENGTH OF CALL 
BSC L CGA,- GC TC CGA CN KCT PINUS 
MOX N508 GG TC N508 
(OOO RRR ROR a OR og gai a gai gaa i gaia ac tei gaiaiai tek kok ke eat as aie a 
* EFFECTIVE ACCRESS IN LI@F T V * 
[OO I oR Ba oi dai moi a dog tai agg dog aoe acai ake ae ate ac ae ae aa age a ae ae as a 
If THE EFFECTIVE ACCRESS IS WITHIN THE * 


LIBF TRANSFER VECTCR, THE INSTRUCTION, INDEX 
THREE, ANC THE EFFECTIVE ACORESS ARE TESTEC 

TC CETERMINE IF 17 IS A PRCPER ENTRY INTO THE 
LIBF TV. IF THE TEST FAILS» IT IS TREATEC AS 
IF THE EA WAS WITHIN TRE CALL TRANSFER VECTOR.« 
IF THE TEST IS SUCCESSFUL, THEN THE MON 
INCICATOR IS SET TC INCICATE THAT IT IS VALIC 
FOR THE PRCGRAM TC BE WITHIN THE SUBROUTINE 

OR LIBF TV AREAS. 

PTO SESECECOTOOSLOL£LOCCL£ OL TEL EL EET TRE ETT EEE Ee EE ES 
N507 BSI BITS RETURN BRANCH TO BITS 


HH He HH HH OH 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


oc - /FFOO CHECK FOR SkORT BSI INSTR. 
cc 74300 WITH XR3 (01000011). 

MOX N510 GO TO N51C IF CHECK FALSE 
Lc L 3 LOAC INCEX 3 

EOR SPXR3+1 CCMPARE WITH PROPER VALUE XR3 
BSC L CGA,sZ GO TG CG ACTUAL IF NOT ZERO 
LO BLBTV LOAC LOW ENC AOOR LIBF TV 

Ss LEA SUBTRACT EFFECTIVE ADDRESS 
SRT 16 SHIFT INTO A TWO WORD OPERANO 
C 03 OIVIOE BY TRREE 

RTE 16 PLACE EXT INTG ACC 


BSC L CGA,Z GO TO CCMPUTE GR IF NOT ZERO 


N508 LO. OM1 LOAC ACC WITH MINUS ONE 
‘STO -L MON STORE INTO MON INDICATOR 
- ° -WQN = 1 WHILE IN MONITOR 
* MON = O WHILE IN MAINLINE 
* MCN =-1 WHILE IN SUBROUTINES 
MOX XXX GO Ta XEQ 
PTC TSETTCLTCOCLO SSCS CCLC£L£L ELE REET EERE TELE EE EE EEE EE 
* EFFECTIVE AOCRESS IN CALL T V * 


OBO OOOO a iO iI OIG GIGI gO zai ai i i i i i ici i isi 
* IF THE INSTRUCTION IS OF A TYPE THAT ALTERS 
CORE, IT hILL-NOT BE PERMITTEC TG EXECUTE. 

If IT 1S. NCT GF A TYPE TKAT ALTERS CORE, IT 
“WILL BE PERMITTEO TO EXECUTE, WITHOUT AN ENTRY 
IN THE GARBAGE TABLE. 

AGOGO OOOO OI IO A Gioia Ip ai ai i aaa a dai ii iota ai i init 
N510 MCX L STORE,O SKIP IF STORE INDIC. IS ZERO 


eH % 
eee et t 


MOX CGA GO TO CGA IF NCT ZERO 
* STORE LINCICATGR = O IF LOAC 
* STORE INCICATCR = 1-IF STORE 


XXX BSC I TSTEA EXIT FRCM TEST EA ROUTINE 
SOOO A ano mai piO iGo ion saigiai toi ial tag aaiciaiaiaioicg aa tot 


* CONSTANTS FOR USE BY LOWER KALF * 
SECC ODO ta iio a aia igi Gioia Gi a gai ici i oi iat 


rect cc $10CT 


111 


147. 


4605 
4610 
4615 
4620 
4625 
4630 
4635 
4640 
4645 
4650 
4655 
4660 
4665 
4670 
4675 
4680 
4685 
4690 
4695 
4700 
4705 
4710 
4715 
4720 
4725 
4730 
4735 
4740 
4745 
4750 
4755 
4760 
4765 
4770 
47715 
4780 
41785 
47190 
4795 
4800 
4805 
4810 
4815 
4820 
4825 
4830 
4835 
4840 
4845 
4850 
4855 
4860 


“4865 


4870 
4875 
4880 
4885 
4890 


ar 


o_ 
ERIC 


PAGE 


0368 
0369 
O36A 
C36B 
036C 
C360 
Q36E 


O36F 
0370 
0372 
0373 
0375 
0376 
0377 
0378 
C379 
QO37A 
0378 
0370 


O37F 
0380 
0381 
C382 
0383 
0385 
0386 
0388 
0389 
O38A 
038C 
¢380 
038F 
0390 
0392 
0393 
0394 
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ooo0naoo0°o 


- = 


eoao0ooooo000nond 


oo 


ernoonaoaoooooo0od0ce 


FFFF 
00C3 
0c40 
0¢32 
ococ 
ococ 
0000 


ocoo 
C40002C2 
6909 
6580036F 
E1c0 
Flc.l 
4818 
7101 
7102 
6903 
65000000 
4C000000 


0000 
4838 
3000 
610A 
oov0000C2 
EQOE 
4C200381 
TLFE 
TCF9 
747F0392 
7CFOD 
743F0393 
TCFA 
4C80037F 
0000 
0000 
1000 


CML CC -1 CCNSTANT 

D3 oc 3 CONSTANT 

D64 0c 64 CCNSTANT 

H32 OC /32 CONSTANT 

GCTR CC 0 GARBAGE CCUNTER 

BCALL OC an BEGINING CF CALL TV 

BLBTV OC aoe BEGINING CF LI€F TV 

Poo ECCCCOCLCOCLCSCL CCC CESSES CL CC SC EEE TE EE EET ETE EEE EE TS ES) 
% : * 
* BITS  RCUTINE a 
* * 
TCC CTTCTCOCCCCCCCOCSCOCCLESCLLLCC LCL LLL LEE TES TEE EE Ee EE 
* ROUTINE TC TEST BITS CF TRE INSTRUCTICN. * 
# FIRST WORD DF CALLING SECUENCE INCICATES WHICE * 
* BITS ARE TC BE TESTED, THE SECCNE TELLS WHICK * 
* OF THESE MUST BE SET FCR TEST TG KCLC. EXITS * 
* AT THIRD WCROD IF THE TEST CCES NCT HKCLEy AT * 
* THE FOURTH WORD IF IT CCES HCLC. * 


TTETCCOTLCLCLOCLOCLCCSOCEOOLL CE EEE EER EEE EEE Ee EEE 
BITS OC am % ENTRY PCINT FCR @ITS RCUTINE 
LC tL INST LCAC INSTRULCTICN FCR TESTING 
STX 1 SXR1+L SAVE INEEX 1 
LOX 11 BITS LOAC RETURN ACCR INTO XR1 


ANO X10 LEAVE SET CNLY BITS CESIREC 
ECR Xl +1 CCMPLEMENT CESIRED BITS 
BSC +- SKIP CN NCT ZERC (TEST FALSE) 
mMox 1 #1 INCRIMENT XR1L IF TEST FCLCS 
MDX 1 +2 MOCIFY XRL BY ThO 
STX 1 RETU+L STCRE XR1 INTC ACCOR OF INSTR 
SXRL LOX LI *=* RESTCRE INCEX 1 
RETU BSC L *-* EXIT FRCM BITS ROUTINE 
PTT CPCICESECCCCCLOCLLSCLOCCCLCCLL SLL LL EEE EE EEE EEE EE SEE 
* * 
* IOND - ROUTINE TC WAIT FGR ALL I/C CFF * 
* * 
PTET TTCCCCCCCCO COSC CL OCLCTOLLESLCL CLC. LT EE EE EE Tt EE 
IOND OC 4-9 ENTRY PCINT FCR IONE 
BSC +-2 SKIP 
BACKB WAIT WAIT FCR INTERRUPT 
Lox 1 lo LOAC XR1L WITF TEN 
Loops xIO LL [OCCB-2 SENSE CSW FCR CISK 
AND H10GO AND GUT ALL BUT BUSY BIT 
BSC L BACKByZ GC 7G BACKB IF NOT ZERO 
MOxX 1 -2 MOCIFY XR1L BY -2ySKIP IF ZERO 
MDX LcopB =©6GC To LCCPB (IF NC SKIP) 
ICH MOX L ICH1s127 * 
MDX ICH * WAIT FCR APROX. 
VOX L ICH2:63  #* THREE SECCNCS 
Max ICH % 
BSC 1! IONC RETURN TC CALLING PCINT 
ICHL OC 0 CCUNTER 
ICH2 CC 0 CCUNTER 
H1o00 CC /1000 CONSTANT 
PTCTCT TCT OCCCCCCOCCCLOLSCCLOCLLL SLL ECL ECL ESTES EE ET EE 
* * 
* READ RCUTINE - REACS CON She INTO ACC a 


* : * 
PO CPSOCCOCCCSLCOCCCC CCE CCCLLLL LLL EEE TEP EEE ET TEE EE ETE ES S| 


112 


4695 
4SCC 
4905 
4516 
4$15 
4520 
4925 
4930 
4935 
4940 
4945 
495C 
4555 
496C 
4965 
4970 
4975 
4980 
4985 
4390 
4595 
5C00 
5C05 
5C1C 
5C15 
5C20 
5C25 
5C3C 
5C35 
504C 
5C45 
5C50 
5C55 
5CéC 
5065 
5070 
5075 
5C8C 
50B5 
5C90 
5C95 
5100 
5105 
5110 
5115 
5120 
5125 
5130 
5135 
514¢ 
5145 
5150 
5155 
5160 
5165 
517€ 
5175 
518C 
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C395 C 
C396 C 
C397 G 
C398 0 
C39A 

C39A i 
C39B C 
c39C ¢ 


C390 G 
C39E C¢ 
C3uF C 
C3ac ¢ 
Csa2 C 
C343 C 
C3A4 

C3A9 Cl 
C3AB C6 


Qo. 
ERIC 


accc 
GeC3 
CCC4 
4C80G6395 
occc 
C3sc 
3ACC 
occc 


occe 
4CFE 
Ecce 
4C$8C39C 
Cccu 
CCc3 


4C8C0390 
acce 


occc 
4CL2 
4CE7 
Ec4aod 
4C1803C4 


C400ccd2 


E4coc24c 
Ocus 
C4CCCecsé 
1600 
C4occ2cl 
3cac 
4CEC 
30G0 
4CC6 
E4coc2ca 
4C2C0200 
4438 
4CC8 


REAC CC a4 ENTRY PCINT FCR REAC 

XxIC ICCCN REAC THE CONSCLE SWITCHES 

Le RPAUS LOAC THE NUMBER REAC IN 

esc I REAC RETURN TO CALLING PCINT 
ICCCN BSS E O IGCC TC REAC THE CONSOLE 

oC RPAUS ENTRY SwITCKES INTC CORE 

oc 73400 AT LOCATION RPAUS. 
RPALS CC a-8 CON Sh REAC INTC HERE 
HEERHKARE RS ARRAS ASK HOSAASSASSTSE SSS HSS ASS SHH HHS HATER SAH 
¥ : * 
% CLMP -- RCUTINE TD CuMP CORE IF Sh 14 SET * 
% x 
PWOTTCCCCTCOCTCCCCCOCOCCOCLOCCCTCCLOS CELE ES EE LE ELE ES 
DUMP CC a4 DUMP ENTRY PCINT 

BSI REAL REAC CON SW INTO ACC 

ANC b2 REMCVE ALL BUT BIT 14 

BSC I .DUMP,+~ RETURN TC CALLING PCINT CN C 

Lo BLBTV LOAC ACCRESS BEGINING LiF TV 

sto OMP+3 STORE AS PARAMETER FOR CUMP 
CP PUMP ~#,4-# CUMP ALL BUT UNUSEC CORE 

esc 1 CuMP RETURN TO CALLING PCINT 
c2 cc 2 CONSTANT 
DAE KH KRHAASAMHST RACK OMG GAS KRH TSA ERSORS SSH SHS HRA WI RIG 
% * 
* CG = CCMPUTE GRACE * 
* é » 


PRO ANAVAHHEREA RG OM ASH SSP HAHAH GEKA HHA HERERO RH RTS 
THIS ROUTINE IS ENTEREC WHEN IT IS DESIRED TC * 


- 


% ABCRT THE CURRENT PROGRAY AND CUTPUT THE * 
® REASONS FGR ABGRTING FURTHER EXECUTION. THIS * 
® [S ACCOMPLISHEC BY PLACING INTC CORE WITHIN % 
% THIS PRCGRAM ANY PARAMETERS WEICE MiGHT BE * 
® NEECED BY THE CUTPUT RCUTINE, WRITING THIS ® 
% PRCGRAM ITSELF ON THE CISKy TKEN LINKING TO # 
® THE OUTPUT ROUTINE CALLEC CBUG. THIS CuTPUT * 
* RCUTINE IS RESPCNSABLE FCR INTERPRETING THESE * 
* PARAMETERS ON THE CISK ANG GUTPUTING THEM IN * 
% REAGABLE FCRM GN THE PRINCIPLE OUTPUT CEVICE. * 
REKEKAKERE SEV SERA HSRVSAS VARIA SAMS PREAH HH KHK SHR K ESHER RIR 
CGA = aSS 0 ENTRY PT FCR CCWPUTE GRACE 

BSI 1ONC WAIT FOR ALL 1/0 OFF 

BSI REAC REAC CON Sh INTG ACC 

ANC HOOOL REMCVE ALL BUT LGW BIT 

BSC L NCwTy+#- GC TC NCWT CN ZERC 

tp t 2 LOAC ACC WITR INDEX 2 

AND L HO3FF MAKE CP COLE ZERO 

STC WAITE STORE AS WAIT INSTRUCTION 

tc COLCA LCAC EFFECTIVE ADCRESS 

RTE 16 VCVE ACC TG EXT 

Lb Lt ACER LOAC ADCR GF INSTRUCTION 
HALTE WAIT WAIT FOR OPERATCR 
BSI OUMP DUMP CORE.IF SWITCH 14 IS CN 

WALT WAIT FOR GPERATOR 

BSI REAC REAC CON Sh INTG ACC 

AND L 04 REMCVE ALL BUT BIT 13 

BSC Lb XEQyZ GO TG XEC IF NCT ZERO 

BSC +-2 SKIP UNCONCITIONAL 
NOWT 8SI DUMP CUMP CORE IF SWITCH 14 1S ON 
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5185 
5190 
5195 
5200 
5205 
5210 
5215 
5220 
5225 
5230 
5235 
$240 
$245 
5250 
5255 
5260 
5265 
5270 
5275 
5280 
5285 
5290 
5295 
5300 
5305 
5310 
5315 
5320 
5325 
5330 
5335 
5340 
5345 
5350 
5355 
5360 
5365 
5370 
5375 
$360 
5385 
5390 
5395 
5400 
5405 
5410 
5415 
5420 
5425 
5436 
5435 
5440 
5445 
5450 
5455 
5460 
5465 
5470 


uv 
> 
iz) 
m 
N 
oO 


oOo 


oooo0oo0oo0o000o 


= 


oO 

w 

Oo 

> 
ooo00°o 

or 


0308 OC 


oo 


oO 

w 

n 

a 
oooo0oo 


6B2F 
6A2D 
67000000 
CBTA 
0823 
CB7C 
0823 
CB7E 
0823 
CC 000238 
A833 
0C000238 
C4000032 
OC1F 
1010 
04000032 
O4COOCEE 
6106 
C824 
CClA 
O08003FB 
CCOOO3FA 
440000F2 
74010403 
T1LFE 
TO0F4 
040A41E3 
0002 
aco2 
aoc2 
ocao 
ococ 


ococ 
EEEE 
0620 
0140 
2000 
goa0c 
ocao0 
ooci 
031C 


_ ocd. 


Q1CE 
oocl 
0000 
22065109 


2710 


SPXR3 


OvooPp 


mmm 


mm 


XR3 
XR2 
ok 
122 
SAVFL 
124 
SAVF2 
126 
SAVF3 
INSCT 
CLE4 
INSCT 
$IOCT 
SIGCT 
16 
$I0CT 
$OBSY 
6 
ICAR 
C320 
CPAR-1 
OPAR-2 
0Z000 


STORE XR3 INTC XR3 

STORE XR2 INTC XR2 

RESTGRE PRCPER VALUE XR3 
LOAC FIRST 2 wWORCS GF FAC 
SAVE FOR CUTPUT ROUTINE 
LGAC SECONC 2 wORCS CF FAC 
SAVE FOR CUTPUT RCUTINE 
LOAC THIRG 2 WORCS OF FAC 
SAVE FOR OUTPUT ROUTINE 
LOAC CCUBLE INSTRUCTION CT 
OIVICE ey 1CcCcc 

STORE OCUBLE INSTR CGUNT 
LOAC I/7C BUSY INCICATOR 
SAVE IN SICCT 

CLEAR ACC 

CLEAR I/O BUSY INCICATOR 
CLEAR CISK BUSY INCICATCR 
ENTER INCEX 1 WITH € 

LOAC SECTOR LENGTH ANDO ACCRe 
LCOAC 32C AS SECTOR LENGTH 
STORE AT TCP CF BUFFER 
LCAC CISK PARAMETERS 

GO Tc CISK RCUTINE 


IOAR+1i,y1 MOCIFY SECTCR AOCRESS BY ONE 


-2 
ovcep 
O8UGT 
2° 
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‘12 


MCCOIFY XR1 BY -2ySKIP IF ZERC 
GC TC CLCOP CN NO SKIP 

CALL LINK TO CBUGT 

LOCATION TC SAVE FAC 
LOCATION TC SAVE FAC 
LOCATION TC SAVE FAC 
LOCATION TG SAVE GRAOE INC. 
LOCATION TC SAVE ENC VALUE 
*OF INCEX 3 

LCCATION TC SAVE I/C BUSY INC 
CONSTANT 

CONSTANT 

CCNSTANT 

CONSTANT 

CONSTANT (QNE) 

TABLE OF CIUSK PARAMETERS 
CISK WRITE 

ACORESS CF CISK BUFFER 3 
CISK WRITE 

ACORESS CF CISK BLFFER 2 
CISK WRITE 

AOCRESS CF CISK BUFFER 1 
CISK FILE LENGTH» SECTOR 
*ACCRESS, ANC NC CF SECTCRS. 
CONSTANT 

LENGTK CF COMMON 

LENGTK CF CCRE IMAGE HEACER 
LENGTt CF TRANSFER VECTCR 
LENGTH -CF CCRE LOAC 

SETTING FOR INCEX 3 
INTERRUPT ENTRY TC K8C/CCN PR 
SIZE CF CCRE 

PRE-CP I[/G ERRCR TRAP 

1/G BUSY INCICATOR 


5475 


5480 - 


5485 
5490 
5495 
5500 
5505 
5510 
5515 
$520 
5525 
5530 


5535 ° 


5540 
5545 
5550 
5555 
556C 
5565 
557C 
5575 
5580 
5585 
5590 
5595 
5600 
5605 
5610 
5615 
562C 
5625 
5630 
5635 
564C 
5645 
565C 


5655" 


5660 
5665 
5670 
5675 
568C 
5685 
5690 
5695 
5700 
5705 
571C 
5715 
57206 
5725 
5730 
5735 


374C 


5745 
575C 
5755 
576C 


eo. 
ERIC 
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C038 SEXIT ECU 
CO3F $CUMP ECU 
CO7B $hROL ECU 
ccal $PSTL ECU 
coes $PST2 ECU 
cosy $PST3 ECU 
COED $PST4 ECU 
0091 $STCP ECU 
COEE SCBSY ECU 
COF2 bz00c EQU 
C406 ocec EAMS BSS 
C4Cé6 END 


40038 
/003F 
/0078 
/008l 
40085 
70089 
70080 
40091 
/QOEE 
/00F2 


E x 


OCC GVERFLCh SECTCRS SPECIFIEC 
OCC OVERFLCh SECTORS RECUIREC 


205 SYmMBCLS DEFINEC 


ENTRY PCINT FOR EXIT 
CUMP ENTRY POINT 


LCACING 
POST-CP 
PCST-CP 
POST-CP 
PaST-CP 
PROGRAM 


ACCR CF THE CORE 
T/C ERRCR TRAP L 
I/G ERRGR TRAP L 
I/G ERROR TRAP L 
I/C ERRGR TRAP L 
STCP KEY TRAP L 5 


LCAC 


Pw we 


DISK BUSY INCICATOR 
CISK ROUTINE ENTRY ACCRESS 
PETIT C SLEEPS PLETE PPPS ESET Ee CELT TEE Leer ELLE S| 


LAST LOCATION IN AMS PRCG. 


ENC OF AM 


NC ERRCR(S) — FLAGGED IN ABGVE ASSEMBLY 


// OLP 

*DELETE UA AM 
CART IC O26 OB AUCR 
*STORE hS UA AF 
CART ID QC26 OB ALCOR 


4E41 


4EE2 


CB CNT C034 
cB CNT CC34 
4 
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PRCGRAM 


5765 
5770 
5775 
5780 
5785 
5790 
5795 
5800 
5805 
5810 
5als 
5820 
5825 


